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0016 IDENTIFICATION 


0019 PRODUCT CODE: AC-T274A-MC 

0021 PRODUCT NAME: CZRCHAO RC25 DISK FORMATTER 
0023 PRODUCT DATE: 13-JUL-83 

0025 MAINTAINER : Disk Engineering 

0027 AUTHOR : D.W.Neale 


0033 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
0034 NOTICE AND oe yd NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
0035 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
0036 RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


0038 NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
0039 SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
0040 AFFILIATED COMPANIES. 


0042 COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION 


0045 THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


0047 ra DIGITAL PDP UNIBUS MASSBUS 
0048 DEC DECUS DECTAPE 
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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


This program will prepare RC25 media for use as addressable storage 7 
providing headers and replacing of bad blocks. This formatter will be 
composed of two sections; a host-resident section, and a 
controller-resident DM code section. 


The host section will serially format up to sixteen RC25 subsystems by 
downline-loading the DM code, and monitor the task. The downline 
section will consist of overlays of DM code. The first of these will be 
down-line loaded to the drive itself, and accomplish the actual business 
of formatting, calling in additional overlays as needed, asking software 
parameters questions and printing formatter error and informational 
messages. 


There are three general modes of DM formatter operation and they are: 


o REFORMAT = This mode is used to format a medium which has been 
previously formatted, and is being reformatted to clear 
existing data or to change the mode of the medium to 512 bytes 
per sector. It assumes that the FCT is still intact. 
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5 
6 o RESTORE = This mode will only be run by DIGITAL Manufacturin 
7 personnel. It provides an external copy of the FCT, produce 
8 hen the disk was manufactured and stored offline, to the 
H RC25 formatter. 
o RECONSTRUCT = This mode is used when none of the other modes 
0142 is possible. It detects bad blocks by performing repetitive 
0143 read checks of each sector. For this reason, a RECONSTRUCT 
Slee run takes considerably longer than the other modes. 
aie8 There are two general modes of HOST operation and they are: 
0148 o ATTENDED MODE=- This is where an operator must be present at the 
0149 console terminal to respond to DM formatter software parameter 
0150 questions. In this HOST mode the operator can choose any of the 
oi) three DM formatting modes. 
0153 oO UN-ATTENDED MODE= This is where the HOST will autonet teaty answer 
0154 DM formatter software parameter questions to perform _a REFORMAT 
pies mode to all units selected units via the hardware P_Tables. 
oiee 1.2 Performance Goals 
0159 Before initiating the format process, simple checks will be made to 
0160 assure the object drive exists, and that communications are possible 
ates between host and downline program sections. 
3107. To maximize throughput: 
0165 o For full Track reads a half Track skew will be employed. That 
0166 is, for even physical LBN track numbers each block number in 
4524 Track N+1 will occur 16 block times later than in Track N. 
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© During bad block replacement, primary replacemert blocks (RBN) 
e e use rst. A second pass will then use secondary 
RBN‘'s for any additional bad blocks. 


ALL bad blocks, whether induced by the aensroreu rs process or 
wear-caused, will be revectored to Bor aeqnent Blocks (RBN). This will 
assure the full compliment of 25,451 blocks per surface for host 
applications use. 


pretest reliability is enhanced through use of four copies of the FCT 
an 


1.3 SYSTEM REQUIREMENTS 


The following are required to run the RC25 Formatter 
on PDP-11 Systems: 


* A PDP-11 series CPU 

* A minimum of 28K words of main memory 
* An RC25 subsystem 

* An XXDP+ Load medium 

* A console terminal 

* Diagnostic Supervisor 


RELATED DOCUMENTS AND STANDARDS 


Diagnostic/Utilities Protocal version 0.5 
Unibus/Q-Bus Storage Systems port V1.5 
Mass Storage Control Protocal 
RC25 Microcode Documentation 
Standard Disk Format Specification version 1.1 
PDP-11 Diagnostic Supervisor Programming quide 
XXDP+/SUPR user manual 
BLISS-16 Language Guide 
- BLISS-16 User's Guide 


1.5 DIAGNOSTIC HIERARCY PREREQUISITES 

A fully functional CPU, main memory and RC25 subsystem are required. 

1.6 ASSUMPTIONS 

Prior to the first formatting of a media, an exhaustive surface analysis 
is assumed to have taken place to detect bad spots caused by the 
manufacturing process. The results of this analysis is assumed to have 
been written as two FCT images per FCT track on the RC25 media. 

1.7 PRODUCT USERS AND USES 

This program is intended for use on media which has undergone a_ surface 


analysis process, resulting in the writing of Factory Control Tables 
(FCT) on the media. 


=—OCONOUSN— 


The program will be used by Engineering ond Manufacturing Groups as a 
product development tool, and by Field Service personnel for media 
recovery. 


AAAIOAAOAIOAOAAAA A AAAAAAAAAAAAAAA AA AAAOAAAAAOGAAAAIOGAOGAAGAAAAGAAOAY 
So 


© 
e 
o 
e 
o 
° 
o 
° 
2 
oO 
o 
° 
e 
oe 
e 
a 
2 
° 
. 
eo 
o 
° 
. 
° 
. 
e 
. 
e 
. 
° 
. 
e 
. 
° 
. 
e 
. 
e 
© 
° 
. 
e 
o 
e 
e 
° 
. 
e 
a 
eo 
. 
om 
> 
° 
. 
6 
. 
e 
. 
° 
. 
e 
~ 
e 
. 
e 
o 
e 
o 
e 
° 
e 
a 
° 
. 
e 
. 
e 
a 
e 
o 
e 
. 
e 
. 
e 
o 
e 
. 
° 
© 
° 
2 
e 
2 
& 
a 
° 
. 
6 
a 
° 
e 
e 
. 
° 
. 
e 
o 
€ 
o 
e 
= 
e 


Oo 
iw 
Nor 
wn 





G 1 
pees 6 
ae 1 CZRCH RC25 DISK FORMATTER 11-Jul-1983 16:04:50 VA¥=-11 Bliss-16 V3-555 6 
REV A PATCH 00 USER DOCUMENTATION B-Jul-1983 13:42:19 SPIDERSUSERS : (NEALE .AZTECJCZRCH1. piesa. (4) 


This program is a utility and is not intended for use as a diagnostic. 


For future use, the DM formatter code portion of this program will be 
used by operating systems as a format utiity program. 
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1.8 RESTRICTIONS 

This program will be host loaded. 

With the exception of the FCT and inner DBN tracks, all information orevieyety 

ape beg on the media will be destroyed. This includes all LBN, RBN and RCT 
ocks. 

The format process will reset the forced error indicator (EDC field) of 

each yee » and used RBN-~ and set the forced error indicators of all 

unuse "8. 


The FCT preamble will indicate zero for both the size of the 576 byte 
replacement table, and the size of the controller scratch area. 


ALL sectors will have 512 byte data fields. 


This Host program will run on only PDP=-11 family CPUs which support the 
Diagnostic Supervisors. 
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C 0253 The Formatter’s bad block replacement convention is as follows: 


For Read operations: 


57 Any ECC, read or compare data failure will result in four retries. 


oo°oo 
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0259 Failure of any retries will be considered a Hard error and 
0260 the block in error will be replaced. 


0262 The block in question will be considered ag and no revectoring 
ase? will be done if all retries are successful. 


0265 For Write operations: 


0266 Seeeeeeooeooeeeeoeeee 


0267 A Write failure will result in four retries. 


0269 Failure of any retries will be considered a Hard error and 
0270 the block in error will be replaced. 
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0272 The block in question will be considered gene and no revectoring 
0273 will be done if all retries are successful. 
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1.10 SOURCE MODULE DEFINITION 


The following List all source module comprising CZRCHA and a description 
of thier contents. 


1. CZRCHO.R16 Host source bliss Library 
Re Program source document module 
3. CZRCH2.816 Global data module 
4. Init code source module 
5. CZRCH4.B1 Test source module 
6. Global routine source module 
e DM formatter down-line load executable module 
. DRS> Last address source module 
. CZRCHB.EXE DMCONV.EXE Dmconv exicutable code 
RCH9.BP2 DMCONV.BP2 Dmconv source module 
AZFMTR.MAC DM formatter source macro module 
AZFMTR.SAV DM formatter executable code 
fretees Functional specification run-off source module 
Project indirect command file 
Program document listing file 
Host sequence ys 
CZRCHA.BIN Program XXDP+ .bin file 
- CZRCH13.LST DM formatter Listing file 
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2.0 OPERATING INSTRUCTIONS 


This section contains a brief description of the runtime services. 
for detailed information, refer to the XXDP+ user's manual (CHQUS). 


2.1 COMMANDS 


There are eleven legal commands for the diagnostic runtime services 
(supervisor). This section lists the commands and gives a ver 
brief description of them. The XXDP+ user's manual has more details. 


COMMAND EFFECT 


START Start the diagnostic from an initial state 
RESTART Start the diagnostic without initializing 


CONTINUE Continue at test that was interrupted (after “C) 
Attempts to continue after a control c will result 
in the present units cormett ong to be aborted and 
the next logical units formatting to commence. 


SEQ 10 
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PROCEED Continue from an error halt. This host program 
is coded to be a utility and not a diagnostic, 
therefor no error macros are used. for this 
reason this DRS> command has no meaning. 


EXIT Return to XXDP+ monitor (XXDP+ operation only!) 


ADD Activate a unit for testing (all units are 
considered to be active at start time 


ooooooooo 


DROP Deactivate a unit 

PRINT Print statistical information. Report summary 
coding is remote DM program driven and is not 
implemented in the host. 

DISPLAY Type a List of all device information 

FLAGS Type the state of all flags (see section 2.3) 

ZFLAGS Clear all flags (see section 2.3) 


A command can be recognized by the first three characters. 
So you may, for example, type ‘STA’ instead of ‘START’. 


2.2 SWITCHES 


There are several switches which are used to modify supervisor 
operation. These switches are appended to the legal commands. 
All of the legal switches are tabulated below with a brief 
description of each. In the descriptions below, a decimal number 
is designated by ‘DDDDD"’. 


SWITCH EFFECT 
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/TESTS:LIST egg ¢ a chose tests Pag d bh in 
the list. List is a string of test 
uabers for example - /TE 3% 1:5: rei 
This List will cause tests 1,5, 7, 8,9,10 to 
be run. Atl other tests will n not be run. 


/PASS :DDDDD Execute DDDDD passes (DDDDD = 1 to 64000) 
The host code will perform only one pass. 
At completion of pass one the program will 
be terminated regardless of this switch. 


/FLAGS:FLGS Set re tly flags. flags are described 
in section 2.3. 


/EOP: DDDDD aouert end of pass message after every 
DDDD passes ont (DDDDD = 1 to 64000) 
One host code will perform only one pass. 
At completion of pass one the program will 
be terminated regardless of this switch. 
/UNITS:LIST TEST/ADD/DROP only those units specified 
in the list. List example - /UNITS:0:5:70-12 
use units 0,5,10,11,12 (unit numbers = 0-63) 
Example of switch usage: 
START/TESTS:1=5/PASS: 1000/E0P: 100 
The effect of this command will be: 
1. Tests 1 through 5 will be executed. 
2. All units will tested 1000 times. 


3. The end of pass messages will be 
printed after each 109 passes only. 


A Switch can be recognized by the first three characters. Yo 
may, for example, type ‘‘/TES:1-5°° instead of ‘‘/TESTS:1 a5Pu 


Below is a table that specifies which switches can be used by 
each command. 


TESTS PASS FLAGS EOP 
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CZRCH1 
REV A 
2.5 FLAGS 


Flags are used to set up certain operational parameters such as 
looping onerror. ALL flags are cleared at startup and remain 
cleared until explicitly set using the flags switch. A 
are also cleared after a start command unless set using the 
flag switch. The ZFLAGS command y also be used to clear 
all flags. with the exception of the START and ZFLAGS commands, 
No commands affect the state of the flags; they remain set or 
cleared as specified by the last flag switch. 


FLAG EFFECT 


HOE Halt on error = control is returned to 
runtime services command mode 


LOE 
IER* 
IBR* 


Loop on error 

Inhibit all error reports 

Inhibit all error reports except first 
level (first level contains error type, 
number, PC, test and unit) 


IXR* Inhibit extended error reports (those 


called by PRINTX macro's) 

Direct messages to Line printer 

Print test number as test executes 
*BELL"* on error 

Unattended mode (no manual intervention) 


tical reporting) 

Inhibit program dropping of units 
Execute cutodrop code 

Loop on test 


have evaluation support) 
*error messages are described in section 3.1 


See the XXDP+ user's manual for more details on flags. You may 
specify more than one flag with the flag switch. For example, 
to cause the program to loo, on error, inhibit error reports 
and type a ‘BELL’ on error, ,‘ou may use the following string: 
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Execute evaluation (on diagnostics which 
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Inhibit statistical reports (does not apply 
to diagnostics which do not support statis=- 
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/FLAGS:LOE: IER:B0E 


2.4 HARDWARE QUESTIONS 


When a diagnostic is started, the runtime services will prompt the user 
for hardware information by typing “CHANGE HW (L) ?°°. You must answer 
‘v"’' after a start command unless the hardware information has been 
“preloaded’’ using the setup utility (see Chapter 6 of the XXDP+ user's 
Manual). When you answer this queries with a ‘‘Y’’, the runtime services 
will ask for the number of units (in decimal). You will then be asked 
the following questions for each unit. 


# UNITS (D) ? 

Answer with the number of units to be tested (no default). This 
answer will determine how many times the following questions are 
asked. A unit is a logical disk (single platter) on an R(25. 
A maximum of sixteen units will be accepted by the init code. 
RC25 IP REGISTER ADDRESS (0) 172150 ? 

Answer with the address of the IP Register of one RC25 
controller as addressed by the processor wit 


memor 
management turned off (i.e.. An even 16 bit address in the ence 
of 160000 to 177774). 


RC25 INTERRUPT VECTOR ADDRESS (0) 154 ? 

Answer with the interrupt vector address oof the R(25 
controller. A vector address in the range of 4 to 774 may be 
specified. 

RC25 BUS REQUEST LEVEL (D) 5 ? 


Answer with the interrupt priority used by the RC25. Levels 4 
to 7 are accepted. 


UNIT NUMBER TO BRING ONLINE (D) 0 ? 
Answer with the physical platter number you wish to bring online. 
The removable platter is an even number and the fixed platter is 
the sequentially following odd number. 
2.5 SOFTWARE QUESTIONS 
The supervisor will ask the question ‘CHANGE SW (L) ?. This question is 
to be answered with ‘Y'. The following message will be printed to the 
console terminal: 
FORMAT IN UNATTENDED REFORMAT MODE (L) YES ? 


A 'YES* response (the default) will cause the host to run in UN-ATTENDED 
reformat mode (see section 7.2 for description). 


A 'NO’ response will cause the host to run in ATTENDED mode (see section 
7.1 for description). In this mode an operator must be present at the 
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console terminal to answer the following DM formatter software questions: 


The DM will ask the following questions. The question numbers are those 
used as the DUP question numbers. 


Enter date: 
Enter the current date in MM-DD-YYYY. 


Enter unit number to form 
Enter the number of the unit to format. 


Enter sector size to be used (512/576): 
This gust con is for compatibility with other formatters. 
The RC25 formatter will skip this question. 


Enter mode to be used (slow/normal/fast): 
This quest! on is for compatibility with other formatters. 
The RC25 formatter will skip this question. 


Use existing bad block “rorest ee (y/n): 

If the answer is YES, a REFORMAT mode format is done. If 
the answer is NO, the mode of format is determined by 
question 5. If the answer is YES, question 5 is skipped. 


DOWN-LINE LOAD bad block information (y/i): 

An answer of NO will cause a RECONSTRUCT mode format to be 
performed. If an answer of YES is given, a RESTORE mode 
nee | “+ « be performed. An answer of NO wili skip 
question 6. 


NOTE: It is the responsibility of the host program to 
eotere the name of the file to be used for the D LINE 


BSE SSS 
NAME WN OOO 


ew 
oo 


Continue if bad block information is inaccessible (y/n): 

An answer of YES will cause a RECONSTRUCT mode format to be 
done if the formatter cannot read the FCT on the disk or if 
a RESTORE mode format was attempted and the “bad block data 
file was unavailable. An answer of NO will cause the format 
to abort if the bad block information is inaccessible. An 
answer of NO will terminate the question sequence. 


FCT blocks wit be requested via the special DUP the fet 
code. The first data word in this message will be the F I 
block (relative to sere) requested by the formatter. 

DUP sequence numbers for FCT block requests will be 1. the 
response is a 3 word block from the host. The first word is 
0 if the block was successfully retrieved and non-zero if it 
was not. The next 2 words contain the UNIBUS address of a 
buffer containing the 512 byte block from the FCT file. 


Enter serial number 

Enter the 64-bit Joc tual serial number of the disk to be 
formatted. In the RC25 formatter this number is used only 
if a RECONSTRUCT mode format is used. 
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8-Jul-19835 13:42:19 


SEQ 15 
VAX-11 Bliss-16 V3=555 15 


CZRCH_RC25 DISK FORMATTER Page 
u SPIDERSUSERS: [NEALE .AZTECICZRCH1.816;4. (9) 


CZRCH1 
REV A PATCH 00 USER DOCUMENTATION 
2.6 EXTENDED P-TABLE DIALOGUE 


When you answer the hardware questions, you are building entries 
in a table that describes the devices under test. The simplest 
wae to build this table is to answer all questions for each 
unit to be tested. If you have a multiplexed device such as 
a mass storage controller with several drives or a communication 
device with several Lines, this becomes tedious since most of the 
answers are repetitious. 


To illustrate a more efficient method, meqere you are testin 
a fictional device, the XY11. Suppose this device consists o 

a control module with eight units (sub-devices) attached to it. 
These units are described by the octal numbers 0 through 7. There 
is one hardware parameter that can vary among units called the 
Q-FACTOR. This Q-FACTOR may be 0 or 1. Below is a simple way 
to build a table for one xy11 with eight units. 


# UNITS (D) ? 8<CR> 
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UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 
O<CR> 


SUB-DEVICE # (0) 2 


Q-FACTOR (0) 0 


UNIT 2 
CSR ADDRESS (0) 


SUB-DEVICE # (0) ? 


Q-FACTOR (0) 1 


UNIT 3 
CSR ADDRESS (0) 


SUB-DEVICE # (0) 2 


Q-FACTOR (0) 0 


UNIT 4 
CSR ADDRESS (0) 


UB-DEVICE # (0) 7 


Q-FACTOR (0) 0 


UNIT 5 
CSR ADDRESS (0) 


SUB-DEVICE # (0) ? 


Q-FACTOR (0) 0 


UNIT 6 
CSR ADDRESS (0) 


SUB-DEVICE # (0) 2 


Q-FACTOR (0) 0 


UNIT 7 
CSR ADDRESS (0) 


SUB-DEVICE # (0) ? 


Q-FACTOR (0) 0 


UNIT 8 
CSR ADDRESS (0) 


1<CR> 


160000<CR> 
1<CR> 
0<CR> 


160000<CR> 
2<CR> 
<CR> 


160000<CR> 
3<CR> 
<CR> 


160000<CR> 
4<CR> 

<CR> 
160000<CR> 
5<CR> 

<CR> 


160000<CR> 
6<CR> 
1<CR> 


160000<CR> 
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CZRCH1 CZRCH RC25 DISK FORMATTER 11-Jul-1983 16:04:50 VAX-11 Bliss=16 V3=555 Page 16 
REV A PATCH 00 USER DOCUMENTATION 8-Jul-1983 1$:43:19 SPIDERSUSERS: CNEALE .AZTECICZRCH1.B16;4 (9) 


C 0639 SUB=DEVICE # (0) 2? 7<CR> 
64 Q-FACTOR (0) 1 ? <CR> 


Notice that the default value for the Q-FACTOR changes when a 
non-default response is given. Be careful when specifying 
multiple units! 


As you can see from the above example, the hardware parameters 
do not vary bi rb Se spa from unit to unit. The procedure shown 
is not very efficient. 


The runtime services can take multiple unit specifications however. 
Let's build the same table using the multiple specification feature. 


# UNITS (D) ? 8<CR> 


UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


UNIT 3 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 2=5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 
CSR ADDRESS (0) ? 160000<CR> 
UB-DEVICE # (0) ? 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


As you can see in the above dialogue, the runtime services will 
build as many entries as it can wit the information given in any 
one pass through the questions. In the first pass, two entries 
are built since two sub-devices and Q-FACTORS were specified. The 
services assume that the CSR address is 160000 for both since it 
was specified omy once. In the second pass, four entries were 
built. This is because four sub-devices were specified. The 
-"* construct tells the runtime services to increment the data 
from the first number to the second. In this case, sub-devices 
2. 3. 4 and 5 were specified. (If the sub-device were specified 
by addresses, the increment would be by 2 since addresses must 
be onan even boundary.) The CSR addresses and Q-FACTORS for 
the four entries are assumed to be 160000 and 0 respectively 
since they were only specified once. The last two units are 
specified in the third pass. 


ef whole process could have been accomplished in one pass as shown 
e low. 


# UNITS (D) ? 8<CR> 
UNIT 1 
CSR ADDRESS (0) ? a 9 Sa 


SUB-DEVICE # (0) ? OQ=7<CR> 
Q-FACTOR (0) 0 ? 0,1,0,....1,1<CR> 
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As you can see from this example, null replies (commas enclosing 
a null field) tell the runtime services to repeat the last reply. 


2.7 QUICK START-UP PROCEDURE (XXDP+) 
To start-up this program: 

Boot XXDP+ 

Give the date 


Type "R CZRCHA’’, where name is the name of the bin or bic 
file for this program 


Type *'START’’ 
Answer the ‘CHANGE HW'* question with ‘‘y’’ 
Answer all the hardware questions 
Answer the ‘‘CHANGE SwW°’ question with ‘N’° 
When you follow this procedure you will be using only the 


defaults for flags and software parameters. These defaults 
are described in sections 2.3 and 2.5. 
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CZRCH1 CZRCH RC25 DISK FORMATTER 11-Jul-198 
REV A PATCH 00 USER DOCUMENTATION 8-Jul-198 


2.8 PID (PROCESS INDICATOR) WORDS 


The process indicator words (PID) are maintained by the remote DM program 
and indicates to the host the DM programs progress running in the controller. 


These PID words are then obtained by the host via the DUP GET_DUST_STATUS 
command. The newly obtained PID are compared to previous PID words. 

the PID has not increased since the last GET_DUST_STATUS then the remote 
program is to be considered dead and the connection to the controller broken. 


However if the PID value has increased since the last GET_DUST_STATUS then 
the remote program is to be considered still running. The new PID words 
are saved and command time out waits reinitiated. 


SEQ 18 
3 16: VAX=-11 Bliss-16 V3=555 Pa 18 
3 13: SPIDERSUSERS: LNEALE AZTECICZRCH1.B16:4° (10) 


This host code will print out to the console terminal the PID values after 
each GET_DUST_STATUS while the formatter is running in the controller. 
The printing format is as follows: 


FORMATTER PROGRESSING: PID HI=xxxxxxx(0) PID LO=xxxxxx(0) 


To further demonstrate to the host the progress of the DM formatter 
the following is performed: 


Each time the DM formatter calls in a new over hey from host 
memory the low PID word is cleared and the high PID word is 
incremented. The operator can then be observed when new 
overlays are called into DM memory. 


2.9 HOST/DM FORMATTER RUN TIME MESSAGES 
ALL host: messages, fatal errors or operator prompts are printed in UPPER 


case characters while all DM formatter: messages, fatal errors, completion 
information or operator prompts are printed in lower case characters. 
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CZRCH1 CZRCH RC25 DISK FORMATTER 11-Jul-1983 16: 704:50 VAX-11 Bliss-16 V3-555 Page 1 
REV. A PATCH 00 USER DOCUMENTATION 8-Jul-1985 13:42:19 SPIDERSUSERS : (NEALE .AZTECIJCZRCH1.B16;4 11) 


3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

Due to the fact that this is an utility and not a diagnostic error macro 
calls will not be used by this host code to report errors. Instead all 
errors will be printed to the operator via the PRINTF macro using the 
prefix "SFTLERR- error message text’ indicating this to be a fatal error. 
3.2 SPECIFIC ERROR MESSAGES 

DM Code Error Messages 

ALL errors returned are fatal. Error messages returned by the RC25 
formatter are as follows. The error numbers given are the DUP error 
message numbers. 

“GET STATUS failure” 


“LESI send error’ 
"Unsuccessful LESI command"’ 


Qu k&wn— 


"formatter initialization error’ 

Nonexistent unit number’ oe 
*DBN/XBN format error (drive FORMAT command failed) 
SEEK erro not have enough good copies of each block”’ 

error’' 

"RCT does not have enough good copies of each block" 
‘LBN format error (drive FORMAT command failed) 

“FCT write error. 

“RCT read error'' 

"RCT write error’ 

“RCT full’ 

‘FCT read error’ 

“FCT nonexistent’ 

FCT + sas ft ol error”’ 

Drive init timeout’ 

mA al response to start-up question” 

"WARNING = possible head addressing problems = run diagnostics"’ 
INPUT Error’ 

‘Media degraded"’ 


fon 3-3 2 
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Mron 
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CZRCH1 CZRCH RC25 DISK FORMATTER 11-Jul-1983 16:08:38 VAX-11 Bliss=-16 V3-555 
REV A PATCH 00 USER DOCUMENTATION 8-Jul-1983 13:42:19 SPIDERSUSERS : (NEALE .AZTECICZRCH1. Bi6re 12) 
; C 0798 Host Error Messages 
3 C 0799 
3 C 0800 ! 
3 : Oabe Generic self-detected fatal port/controller errors 
3 C 0803 SFTLERR= UNRECOGNIZABLE ERROR CODE 
3 C 0804 SFTLERR= ENVELOPE/PACKET READ (PARITY OR TIMEOUT) 
; C 0805 SFTLERR= ENVELOPE/PACKET WRITE alte OR TIMEOUT 
; C 0806 SFTLERR= CONTROLLER ROM AND RAM PARITY 
; C 0 SFTLERR= CONTROLLER RAM P 
: C 0808 SFTLERR= CONTROLLER non weg hi 
$ C 0809 SFTLERR= RING + PARITY 
: C 0810 SFTLERR= RING WRITE (PARITY OR Ae OUT) 
H C SFTLERR=- INTERRUP STER 
: C 0812 SFTLERR= HOST ACCESS TIMEOUT 
3 C 0813 SFTLERR= CREDIT LIMIT EXCEEDED 
3 C 0814 SFTLERR= BUS MASTER ERROR 
HY C 0815 SFTLERR= DIAGNOSTIC CONTROLLER FATAL ERROR 
H C 0816 SFTLERR= INSTRUCTION LOOP 
; C 0817 SFTLERR=- INVALID CONNECTION IDENTIFIER 
4 C 0818 SFTLERR- INTERRUPT WRITE 
: C 0819 SFTLERR= MAINTENANCE READ/WRITE INVALID REGION IDENTIFIER 
H C 0820 SFTLERR= MAINTENANCE WRITE LOAD TO NON-LOADABLE CONTROLLER 
3 C 0821 SFTLERR= CONTROLLER RAM ERROR (NON-PARITY) 
HY C 0822 SFTLERR= INIT SEQUENCE ERROR 
: C 0823 SFTLERR= HIGH ner PROTOCOL ht meena ERROR 
3 C 0824 SFTLERR= PURGE/POLL HARDWARE FA 
3 C 0825 SFTLERR=- MAPPING REGISTER READ ERROR (PARITY OR TIMEOUT) 


CZRCH1 CZRCH_RC25 DISK FORMATTER 
REV A PATCH 00 USER DOCUMENTATION 


I 2 


11-Jul-1983 16:98 
8-Jul-1983 13:42: 


: RC25 Self-detected fatal port/controller errors 


SFTLERR= VAX READ/WRITE AT U.ee " INTERRUPT 


SFTLERR- 
A 
SFTLERR 


INCONSISTENCY AT 
INCONSISTENCY oy a Y 
INCONSIST 


FTLERR= INCONSISTENCY A LN 
SFTLERR= ILLEGAL D REQUEST” (U.QDRQ) 
SFTLERR- FENCE-POST ERR T PROT 

TLERR= BAD PACKET DEQUEUED AT U. 


SFTLERR- 


SFTLERR- D.OPC 


E T 
wo ENCY AT _U.CKSV 
D FOUND ILLEGAL OPCODE 


SFTLERR= D.CSF FOUND ILLEGAL OPCO 
UNKNOWN 


SFTLERR- 
SFTLERR- 


SFTLERR= D UP A ZERO SCB. 
INCONSISTENCY AT D IDLE 
DM WORD COUNT 


SFTLERR- 
AL 


DE 
BAD ORIVE STATUS AT D.DSTS 
ILLEGAL XFC EXECUTED BY DM 
PICKED A 0 


LOOP 
D ERROR ON HOST DMA/SEND/RECV 
DISPLAY FAULT CODE AT D.DFLT 


NOWN 
SFTLERR= DRIVE NOT FAULTING IN P.OFLN STATE 
SFTLERR= U POWER UP DIAGNOSTICS FAILED 


SFTLERR- D POWER UP poire ge FAILED 

SFTLERR- orgy 3 CARD FAILURE 

SFTLERR= EC.TMR TIMED OUT 

SFTLERR= U.SEND/U.RECV RING ao INCONSISTENCY 
SFTLERR= UNKNOWN WAITRV REASON A Vv 

SFTLERR= D.ARCS DID NOT FIND CLOSEST oe ZONE 
SFTLERR= U.S FOUND SEEK TO ILLEGAL TRACK 


I 
SFTLERR= U.HTST INIT DIAG DMA COMPAR 


SFTLERR= U.SYDR FOUND SS. 


E FAILED 
DER SET AND SS.SPN NOT SET 


SFTLERR=- MASTER DRIVES ACLO ASSERTED 


50 
19 


SEQ 21 
VAX-11 Bliss-16 V3-555 Page 21 
SPIDERSUSERS : (NEALE .AZTECICZRCH1.B16;4 9043) 
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' 
; Host runtime fatal error messages 


SFTLERR= NON-EXISTENT RC25 REGISTER ADRS xxxxxx 

SFTLERR= DUP SERVER acy “gh a Et 

BL DUP SERVER INACTIVE AFTER EX_SUP_PROG C 

SFTLERR= RP" SPONCE STATUS ERROR: actual status error message 
SFTLERR= HOST/CONTROLLER OUT OF SEQ 

SFTLERR= REMOTE PROG NOT RUNNING 

SFTLERR= UNKNOWN RE we STATUS CODE 
SFTLERR= COM AREA INIT ERROR 
SFTLERR= PORT/HOST SYNC ERROR 
SFTLERR= MESSAGE LENGTH ERROR 
SFTLERR= UNKNOWN ENDCODE RECEIVED 

SFTLERR= ADAPTOR PURGE ERROR 

SFTLERR= UNKNOWN INTERRUPT 

SFTLERR=- INIT SEQ STEP TIMED OUT 

SFTLERR= INIT SEQ COMPARE ERROR 

SFTLERR= UNEXPECTED ATTENTION END MESSAGE RECEIVED 
SFTLERR= UNEXPECTED COMMAND OPCODE IN END MESSAGE RECEIVED 
SFTLERR= UNEXPECTED SERIOUS EXCEPTION END MESSAGE RECEIVED 
SFTLERR=- INVALID COMMAND END MESSAGE RECEIVED 

SFTLERR= UNKNOWN MESSAGE TYPE rash i 

SFTLERR= OUTSTANDING COMMAND BUFFER FULL 

SFTLERR~ OUTSTANDING COMMAND BUFFER OUT OF SYNC ERROR 
SFTLERR= UNKNOWN MESSAGE NUMBER RECEIVED 

SFTLERR- FILE READ 


ERR 
SFTLERR= PORT/CONTROLLER TIMEOUT ERROR 
SFTLERR= ILLEGAL FCT FILE LENGTH 
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SEQ 23 
CZRCH1 CZRCH RC25 DISK FORMATTER 11-Jul-1983 1 VAX-11 Bliss-16 V3=555 Page 2 
REV A PATCH 00 USER DOCUMENTATION 8-Jul-198 18: SPIDERSUSERS : (NEALE .AZTECICZRCH1.B16;4 15) 


f 
Init code fatal error messages 


SF TLERR- NO ADDITIONAL UNITS TO FORMAT = ABORTING 
SFTLERR= INIT CODE RE-ENTERED DUE TO PWR FAIL 
FT ORTING HOST AND REMOTE PROGRAMS 

ILLEGAL NUMBER OF UNITS SELECTED 
SFTLERR= LIMIT o mh TEEN UNITS PER FORMATING SESSION 
SFTLERR= RC25 C TROLL ES INITIALIZATION ERROR 
SFTLERR- PROTOCOL VIOLATION ERR 
$F TLERR= COMMUNICATION AREA INIT ERROR 


Dup return status codes 
SUCCESSFUL 

INVALID C 

NO REGION AVAILABLE 

NO REGION SUITABLE 
PROGRAM NOT 

LOAD FAILURE 

STANDALONE 

! MSCP return status codes 


SUCCESS 


WRITE PROTECTED 
ee ok ERROR 


DATA ERROR 
HOST Hy ACCESS ERROR 
LLER ERROR 


OERROR 
MESSAGE FROM AN INTERNAL DIAGNOSTIC 
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CZRCH1 CZRCH_RC25_DISK FORMATTER 11=Jul-198 
REV A PATCH 00 USER DOCUMENTATION 8-Jul-198 


4.0 PERFORMANCE AND PROGRESS REPORTS 
The formatter issues the fol towing messages upon normal completion. ALL 


but the last are sent as DUP informational messages. The last is sent 
as a DUP termination message. 


See 24 
3 16:04:50 VAX-11 Bliss-16 V3-555 24 
} 19:43:79 SPIDERSUSERS : (NEALE .AZTECICZRCH1. Biésa 916) 


1. ‘format completed’ 


2. ‘in revectored LBNs*’ 
Where n is the number of LBNs revectored in the user 
area. 


3. ‘n primary revectored LBNs” 
Where n is the number of LBNs in message #2 which 
primary revectors. 


4. ‘Nn Sovenderysvertsery 2 regeteres LBNs*’ 
Where n is the number of the LBNs in message #2 which 
secondary or tertiary revectors. 


*‘n bad blocks in the RCT area due to data errors” 
Where n is the number of blocks in the total RCT area which 
were bad due to errors in the data portion of their sectors. 


‘nn bad blocks in the RCT due to header or timing errors” 
Where n is the number of blocks in the total RCT area which 
were bad due to errors in the header or timing areas of 
their sectors. 


‘nn bad blocks in the DBN area due to data errors" 
Where n is the number of blocks in the DBN area which were 
bad due to errors in the data area of their sectors. 


"n bad blocks in the DBN area due to header or timing 
errors’ 

Where n is the number of blocks in the DBN area which were 
aoe due to errors in the header or timing area of their 
sectors. 


‘nn bad blocks in the XBN area due to data errors" 
Where n is the number of blocks in the XBN area which were 
bad due to errors in the data area of their sectors. 


"n bad blocks in the XBN area due te header or timing 
errors 

Where n is the number of blocks in the XBN area which were 
+ due to errors in the header or timing area of their 
sectors. 


*'n bad RBNS"’ 
Where n is the number of blocks in the RBN area which were 
bad due to errors in the data area of their sectors. 


"‘n blocks retried on the check pass 
Where n is the number of blocks + had an error on the 
first read attempt after formatting. 
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: 2844 13. ‘FCT used successfully” or 

C 0994 14. “FCT was not used’ 

C 0995 Depend in on | a to the start-up questions and the 
C 0996 availability of the bad block information (FCT). This 
Cc aad message has the DUP termination message code. 

0999 5.0 DEVICE INFORMATION TABLES 


5 


! 
i ; Hardware parameter coding questions 


IP_ REGISTER ADDRESS 
INTERRUPT VECTOR ADDRESS 
BUS REQUEST LEVEL 

UNIT NUMBER TO FORMAT 


wr 


iw_0 
HW 03° VECTOR 
HW_Q3_BR 
HW_Q4_UNIT 


AAAOAOOAOOOO 


segeeese 
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SEQ 26 

CZRCH1 CZRCH RC25 DISK FORMATTER 11-Jul-1983 16:04:50 VAX-11 Bliss=-16 V3-555 Page 26 
REV A PATCH 00 USER DOCUMENTATION 8-Jul-1983 13:42:19 SPIDERSUSERS: CNEALE .AZTECICZRCH1.816;4 (17) 

1008 6.0 TEST SUMMARIES 

ion) 6.1 Reformat Mode Procedure 

aE Reformat mode is accomplished in four sections: 

1015 * Table Setup 

1016 * Scanning 

1017 * Replacement 

1018 * Check Pass 

1019 

1020 

1s) 6.1.1 Table Setup 

1023 This section will build an RCT skeleton and perform part of the primary 

Se revectoring. 

1026 A. The presence of a good FCT will be determined by the ability 

1027 to read each block in an FCT copy, and by verifying the data 

ise contained in the FCT Information Block. 

1030 If none of the four FCT copies is good, the Formatter will 


either: 


= = 
oooo 

WwW 
ewn— 


a at ed 
oooooo 
WWWWWNWNWWW 
CONOUEW 


1. Abort the program if DM software question #6 was 
answered with a ‘NO’. 


2. Will do a Reconstruct mode if software question #6 
was answered with a ‘YES’. 


Be Be Be Be Be Ge Se Ge Se Be Be Se Be Be Se Ge Vs Be Be Ge Se Be Ge Be Be Ge Be Ge Se Fe Ge Ge Se Be Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge oe 
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1039 (Software question #6 is: Continue if bad block 
i information is inaccessible (Y/N):). 

1042 B. The RCT tracks will be formatted. Bad blocks in the RCT 
1043 area will be marked with a header code of 11. If a bad 
1044 block occurs in the same position in each copy of the RCT, 
9 the format will be aborted, as the media is unusable. 

ieee C. Outer DBN tracks will be formatted here. 

1049 D. A partial RCT will be built from the FCT: The RCT 
1050 Information Block will be assembled. FCT Bad Block 
1051 Descriptors coded for primary voyectorsns will be 
1052 transformed into RCT entries. This is done by converting 
1053 the PBN address into an LBN address, and entering it into 
1054 the corresponding RBN descriptor slot for the particular 
1055 track, with a code of 02. Other RBN descriptors will be 
1056 designated as_ unallocated (code 00) if they have a 
244 corresponding RBN, or as nulls (code 10) if they do not. 
1059 Two copies of the RCT will be written to each of the two RCT 
iy tracks. 

1062 ALL LBN's marked for secondary pevecter sng will be stored in 
1063 an ‘"'R2"* Table. | Replacement RBN's for these LBN's will be 
1066 resolved after primary revectoring is completed. 
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6.1.2 Scanning 
NOTE: 


pei The following section 6.1.2 generally describes the scanning philosphy 
used by this formatter. Specific scanning philosphies for each formatting 
mode is as follows: 


REFORMT mode: 

In this mode the FCT file is accessable. The RCT file is built from 

the FCT and the LBN area is scanned for additional bad blocks. This mode 
will scan only for data pattern W. 


RESTORE mode: 

In this mode an external FCT file is brought in form the Host and written 
to the media's FCT track. After the FCT Tile has been restored a normal 
Reformat mode is performed scanning for data pattern W only. 
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In this mode the FCT file is inaccessable. The FCT I.D. block is not 
formatted but rather read/write scanned with all data patterns. The 1.D> 
is then rebuilt indicating zero FCT entries. The Reformat mode overlay 
is then called in to DM space and will read/write scan the LBN area with 
all data patterns. 
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This section writes headers throughout the LBN area. It scans for 
additional bad blocks, and completes the primary revectoring. 


Scanning will start at LBN Track 0 (Top Surface OGB) and progress to LBN 
Track Max (Bottom Surface 0GB) following logical ordering of LBN tracks. 


E. An _LBN track is written with headers and Data Pattern WwW, 
using the Format Track on Index XFC. A failure of this XFC 
will result in 10 retries. If all retries fail, the format 
will be aborted. 


The header codes connote block status. They will be 
determined by the FCT Bad Block Descriptors as in the 
following table: 
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FCT Descriptor Code 


+ 
Not listed : 0C = Good LBN 
or 14 : 05 - Primary revector§ : 
: 03 - Secondary revector : 
11 = Secondary revector-: 
: header problem : 
Any for RBN : 11 = Unusable RBN : 
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If the RBN is not Listed in the FCT, a single block 
per track may be designated for primary revectoring 
with an FCT descriptor code of 12 or 14. 


If there are no bad blocks in the track, the forced error 
indicator will be set in the RBN at format XFC time by 
complimenting its expected EDC field. 


F. ALL blocks in the track will be read without revectoring 
enabled, and compared to Pattern W. A write-read-compare 
sequence will then be performed on each block in the track 
using Pattern M, which is the compliment of Pattern W. 


Error-free blocks will be written with LBN-unique Pattern 1. 
If the track has a primary revector block, ts data field 
will be written with 128 copies of the track’s RBN address, 
and the will be written with LBN-unique Pattern 1 for 
the replaced block. 


Each block, except used RBN and secondary replacement 
blocks, is read and its data compared to the expected value. 
This will be done with revectoring enabled for a primary 
replacement block, and disabled for the others. 
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This process is repeated using LBN-unique patterns 2, 3 and 


Any error, including correctable errors, will result in 4 
retries. Any block failing these will be considered a bad 
block. If no primary revector block already exists in the 
track, the first to fail will be primary revectored by 
making an RCT entry in its RBN descriptor, reheadering it 
with a code of 05, and resetting the RBN forced error flag. 


Other new bad blocks will be reheadered with secondary 
revector codes of 03 or 11, depending on the presence of 
header errors. 


If any new bad block(s) is found, steps D and E will be 
partially repeated to include the additional bad block 
information, and verify the format write. The 
write-read-compare sequences with patterns 2, 3 and 4 will 
not be repeated, however. 
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Addresses of blocks. to be secondary revectored will be 
accrued in an ‘R2 Table’’ within the program, until 127 
entries are made. At this time, 8 copies of the table will be 
saved on outer DBN tracks startirg at DBN block 0 top surface. 


6.1.3 Replacement 


This section will complete the RCT and resolve all secondary bad block 
replacement. 


I. When all tracks have undergone the scanning section, The ‘R2 
Tables’’ will be read from the media. The secondary 
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Cc revectors will be resolved in the RCT, finding RBN Bad Block 
Descriptors through the Ping-pong algorithm. 


00000900 
Who 


Tracks whose RBN jis assigned to be used for secondary 
rovec tor ing will be written to reset the forced error 
indicator in the RBN. 

6.1.4 Check pass 


This section makes write and read passes of the media as a final check 
to verify revectoring capabilities. 


J. Starting with the LON track pair nearest the 0GB, the data 
fields of all blocks on the media will be written as 
follows: 

Block Type Data 
Good Pattern 3 


Primary revectored Pattern 3 of replaced block 
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Secondary revectored Pattern 3 of replaced block 

Used RBN Pattern 3 of replaced block 

Starting with the my eee LBN track nearest the OGB all 
iti 


a or 
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Host Application ocks will be _ read to test for 

reves ter ing capabilities. Failure of any read or write will 
result in 10 retries. Failure of all retries will result in 
a fatal error message sent to the host and the format aborted. 


6.2 Restore Mode Procedure 


Restore mode will oy be run by DIGITAL Manufacturing personnel. It 
requires an external copy of the FCT produced when the platter was 
momstereures and is stored on the System Boot Media. This procedure is 
as follows: 


A. The FCT tracks will be formatted using the Format Track on 
Index XFC. A failure of this XFC will result in 10 retries. 
If all retries fail, the format will be aborted. 


The header code of each block will be 12, indicating good 
FCT blocks. The data will be pattern W. 


Each block will be read and _ its data _ verified. 
Write-read-compare sequences will then be performed on each 
block, using patterns M, 1, 2, 3 and 4. 


Any errors will result in 10 retries. Any block failing a 
retry will be considered a bad block. 


The tracks will be reformatted, if necessary, to change bad 
block header codes to 11. 
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3 C 1237 
3 C 1238 D. The operator will be queried for the original FCT file name. 
; C 1239 The FCT file will then be inputted from the boot device and 
: ; 1sc9 sent to the DU when requested. 
: C 1242 E. Two copies of the FCT will be written to each FCT track. 
g : 1s7 These will include bad blocks found in step B. 
: € 1245 F. This mode will be aborted if any FCT sector fails in all 4 : 
5 C 1246 copies. The RECONSTRUCT mode will then be called in if the 
3 C 1247 option to continue if the FCT file is inaccessable else the 
$ 3 1cs8 formatter will be aborted. 
: € 1250 G. The program will automatically enter the Format Mode, and 
; C 1251 proceed as in 4.1 above. 
; C 1252 
: C 1253 
3 : ieee 6.3 Reconstruct Mode Procedure 
: 3 1526 This mode will be performed if: 
; C 1258 1. The operator has explicitly requested this as the formatting 
3 ; ib 344 mode by answering ‘NO’ to the following software questions: 
: C 1261 - ‘Use existing Bad Block information?’ 
; 3 1666 - ‘Down-line load Bad Block information?" 
: C 1264 2. The Operator has responded with a '‘YES* to the software 
; ; 1$e2 question: 
: C 1267 . Continue if Bad Block information is inaccessible?*’ 
5 C 1268 and the Bad Block file is discovered inaccessible 
; 3 4 during a Reformat or Restore Formatting Mode. 
: c ert Reconstruct formatting procedure is as follows: 
: C 1273 1. Sector 0 of each FCT copy will be read/write scanned. 
: C 1275 The verguse ste process will be aborted if all four copies of 
5 3 1676 Sector 0 are bad. 
: C 1278 2. The Volume Information Block (Sector 0) will be 
3 3 if 44 reconstructed using the following information: 
: 3 ices . Media Mode = 512 Byte Format 
: ; t+, - Formatting Instance Number = 0 
: ¢ 1285 . Volume Serial Number = Operator Supplied S.N. 
: C 1287 . Time of First Formatting = Operator Supplied Date 
; 3 1¢e8 (VAX/VMS Format) 
: € 1290 . Time of Most Recent Formatting = Operator Supplied Date 
: : if +4 (VAX/VMS Format) 
: C 1293 . Number of Used 512 Table Entries = 0 
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. Number of Used 576 Table Entries = 0 
- Remaining Words Zeroed 


The Volume Information Block is then written to each FCT 
copy and read back for data integrity. 


MrororereTre 


S 


Read Failures at all four copies will cause the formatting 
process to abort. 


Ses 


NOTE 
Remaining FCT Sectors 1 thru 15 are not altered. 


Sear 


assesses 


The formatting process will then perform the Reformat Mode 
Procedure. 
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7.0 HOST TEST SUMMARIES 
7.1 ATTENDED FORMAT MODE 


In this HOST mode the operator must be present at the console terminal 
to respond to DM formatter software questions. Via these sofware guess tone 
the operator can choose from any of the three formatting modes (REFORMAT, 

E or RECONSTRUCT) and can specify the unit number to be formatted. 
The unit number given to the DM formatter however must be the same uni 
the host reported bringing on-line. 


7.2 UN-ATTENDED REFORMAT MODE 


In this HOST mode a REFORMAT mode will carr be preformed on all 
physical unit numbers contained within operator built P_Tables. 


When this mode is selected (which is the hosts default mode) the host 
will ask the operator for the date in the same format as the DM formatter 
would. This date is then automatically given to the DM formatter and the 
an ty ah at Tiga within the current P_Table is given to the DM as the 
un o format. 
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In this mode the operator can select up to 16 units (a unit being a pavereat 
platter) to format and be free to leave the console terminal while the 
units are being formatted. 
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; C 1340 8.0 APPENDIX 
; C 1341 APPENDIX A 
3 C 1342 
; 3 17 GLOSSARY 
: C 1345 DBN Diagnostic Block Number. A number of per surface are reserved 
; 3 18 for diagnostic use. These tracks are called the DBN area. 
; C 1348 DM Diagnostic Machine. An interpreter built into the RC25 
: C 1349 firmware which is used to execute programs downline loaded 
; : 1329 into the RC25's buffer memory. 
: C 1352 EDC Error Detecting Code. A means of verifying correct controller 
3 3 133? operation. 
: C 1355 FCT Factory Control Table. A 16 sector table containing volume ID 
3 C 1356 information and a map of bad blocks on the media. The FCT is 
3 : 1330 written as part of the initial media formatting. 
: C 1359 FRU Field Replaceable Unit. An item which may be exchanged in the 
; 3 1e09 field. 
: ; 1308 1GB Inner Guard Bands. The guard bands closer to the spindle. 
; C 1364 IP Initialization and Polling Register. This register is used 
5 3 sea, for port control. 
: C 1367 LBN Logical Block Number. Host visible blocks including the Host 
3 3 1338 Application Area and the RCT tracks. 
: C 1370 MSCP Mass Storage Command Protocol. The method of communication 
; 3 137) used between the host and the RC25 over the bus. 
: c 1373 0GB Outer Guard Bands. The guard bands further from the spindle. 
: C 1375 PBN Physical Block Number. The absolute address of a block on 
; 3 1376 RC25 media. 
: C 1378 RBN Replacement Block Number. RC25 has one RBN per track for bad 
; : 13 block replacement. 
; C 1381 RCT Replacement and Caching Table. A 16 sector tabdle containin 
; C 1382 media ID information and a map of the current bad bloc 
: C 1383 locations. 
3 C 1384 
: : ts 34 RZ01 RC25 product name. 
: 3 td SA Status, Address and Purge Register for port control. 
; C 1389 XFC Extended Function Call. Instructions which interface 
: C 1390 Diagnostic Machine code to the RC25 microcode. 
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APPENDIX B 
BAD BLOCK REPLACEMENT 


Bad block replacement is an addressing technique for replacing a_ bad 
block with a good one. The block which replaces it is called a 
replacement block, or RBN. 


Each RC25 track has 32 blocks. Im the host-addressable area, the first 
at aad are for normal data storage, and are called Logical Blocks, 
or L The Last block on each of these tracks is an RBN. 


If a single bad block exists on a track, it can be replaced by the RBN 
of that track. This is called Primary replacement. 


If other bad blocks are found in the same track, they must be replaced 
by unused RBNs of other tracks. This is called Secondary replacement. 


Two cyees of tables recers bad block information for the media. One is 
the Factory Control Table (FCT), which is TT " ~ media at the 
factory. It . a map of the bad blocks caused by monutgc turing 

process. The other is the ————— and aad Table (RCT), whic 
includes both the FCT information, and bad block ormation uncovered 
ay pone formatting of the media. There are four copies of each 
able per unit. 
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APPENDIX C 
FCT 

The basic unit of the FCT is the Bad Block Descriptor. This descriptor 
gives the Physical Block Address of the bad block, and a four bit code 
ndicating why it was retired. 


The Physical Block Address, or PBN, is the absolute address of a _ block 
anywhere on the media, without the distinction of host-accessibility. 


There are a variable number of Bad Block Descriptors in the FCT. These 
descriptors are sorted in descending track order, and in ascending PBN 
order within tracks. 
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APPENDIX D 
RCT 


The basic unit of the RCT is the double-word RBN Descriptor. There are 
bee of these, one for each RBN in the host-accessible LON area of the 
ia. 


The position of each RBN Descriptor in the RCT is fixed. The first RBN 

Descriptor is associated with the RBN block in the first host- visible 

chee _ second descriptor with the 8BN of the second host- visible 
rack, etc.. 


In the format process, the FCT is given. Four copies of it are found on 
the media; two on each FCT track. The RCT is rebuilt from the FCT 
entries and additional bad block information is gathered in a scan pass. 
Primary replacement may be possible for one block per track if 
identified as bad by either of these sources. The track's RBN must 
itself be a good, unused block. 

Primary replacement is accomplished by: 

* Making the bad block's header code 05. 


* Writing the bad block's data field as 128 
copies of its track's RBN address. 


* Writing the address of the bad block to the associated 
RBN Descriptor in the RCT (with a code of 02). 


Sncendery Septaqenent is needed for bad blocks which do not have a good, 
unused RBN block. 


Secondary replacement is accomplished eresceety to Primary Replacement. 
but first an unused RBN of another track must be found. 


* Find an unused RBN Descriptor in the RCT, 
using the Ping-pong algorithm. 


* Make the bad block's header code 03 or 11, 
depending on error type. 


* Write the bad block's data field with 128 
copies of the target RBN address. 


* Write the address of the bad block to the associated 
RBN Descriptor in the RCT (with a code of 03). 


After replacement an attempt by the host to access a replaced block will 
result in access to the block with which it had been replaced. 


Good blocks are headered with codes of 00. 
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To help detect addressing problems, unused RBNs will have a forced error 
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3 C 1492 indication set by complimenting their EDC fields. 
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APPENDIX E 
DATA PATTERNS 
Six patterns will be used during the scan pass. 
Pattern W is a pseudo-random pattern, with the LBN address as the first 
word. Pattern M is its compliment. Its use will assure that all data 
bits can toggle. 


Patterns 1 through 4 are made up of single word elements. These 
elements are as follows: 


BIRD 


Element A = 071311. This causes peak shift in data encoding. 


Element 8 = 106466. This causes single transitions spaced by 
1, 2. 3 and 4 zeroes. 


Element C = 043146. This causes both the highest and lowest 
ogeenay of transitions in the encoding 
ogic. 


Element D = 134631. This also causes both the highest and 
lowest frequency of transitions in the 
encoding logic. 


Element L = 17NNNN, Where NNNN is the LBN address to which the 
pattern is written. 


MVM 
3 


These elements are assembled into patterns 1 through 4 as follows: 


Pattern 1 = LBBAAABBBBAAAAABBBBBBAAAAAAABBBBBBBB etc. 
Pattern 2 = BLABBBAAAABBBBBAAAAAABBBBBBBAAAAAAAA etc. 
Pattern 3 = LDDCCCDDDDCCCCCDDDDDDCCCCCCCDDDDDDDD etc. 
Pattern 4 = DLCDDDCCCCDDDDDCCCCCCDDDDDDDCCCCCCCC etc. 
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AAAAAAA AAA AAAAAOAAAAOAAAAOAAAAAAAAAAAAAAAOAGAAGAAOA 
es —3s — 
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CZRCH1 CZRCH RC25 DISK FORMATTER 11-Jul-1983 16:04:50 VAX-11 Bliss-16 V3-555 Page 39 
REV A PATCH 00 USER DOCUMENTATION 8-Jul-198 13:43:19 SPIDERSUSERS: CNEALE .AZTECICZRCH1.B816;4 (24) 
; C 1537 Embedding the LBN address within the patterns gives them L8N-uniqueness. 
: : 1338 This feature is taken advantage of in validating revectoring. 
; C 1540 Three steps are taken to insure the data will not interfere with 
3 : 1%} Secondary Revectoring by matching the ‘Compare 128°’ algorithm. These 
; are: 
; C 1543 
; 3 LF 243 * The high four bits in every word contain invalid header codes. 
; C 1546 * Before secondary revectoring is attempted, blocks not involved 
; C 1547 with (fevector iy will be written with data fields which 
F ; 18 contain no 32-bit repetitive patterns. 
: C 1550 * When the format is conglete. no unrevectored blocks will 
; ; 132) contain data which has 32-bit repetitive patterns. 
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AOOQAOOAOA AAO AAAAAAAAAAAAOAAOAQOOOOOOH 
Oe kek a kk ek ek ek a a nk dd a ed ed ed ed dd a td td td td od ot od od = 
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PAPA AAAVIAAAMIMUIVMIVIUIUT 


wiv wu 
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CZRCH RC25_ DISK FORMATTER 11-Jul=1 
USER DOCUMENTATION 8-Jul-1 


B 4 


APPENDIX F 
Ping-Pong algorithm 


The search begins at the geet | replacement block descriptor. If the 
the descriptor is not empty then a ping pong search of the sector containing 
the primary replacement block descriptor ensues. If an empty descriptor 
is not encountered then a linear scan of the remaining RC blocks and 
descriptors within blocks, (with wrap-around at the end of the RCT) ensues 
until one of two things occur: 


1. An unallocated replacement block descriptor is encountered in an 
overflow location = a secondary. 


2. The entire RCT is searched without success - a failure. 
The search operates at two levels: 


1. Within the gto! descriptor RCT sector, outward from the primary 
descriptor searched (starting with the next highest RBN descriptor). 
Note that this degenerates to a Linear search once the first or last 
descriptor is encountered. 


Then a linear search, starting with the next highest RCT sector 
address, once the initial sector has been completely searched. Each 
new sector is searched in a linear fashion starting at the lowest RBN 
descriptor and scanning until the highest RBN descriptor in the 
sector is encountered. 


If at any time during the linear search a null (not an empty) entry is 
encountered, the search resumes at the first entry in the third RCT sector 
(the firs* with descriptors). The search is terminated when it is certain 
that all the RCT entries have been searched. 


VAX-11 Bliss=-16 V3-55 
SPIDERSUSERS : [NEALE .AZ 


5 


SEQ 40 
Page 40 
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SPIDERSUSERS: 
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twee werent 
Last RCT sector t---------+ 


DESCRIPTR 


oa 
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pmo ma mac f 
: 
y 
$ owe anwar + 
f¢owmowoeesce 
fee me ee eo 
NUL ENTRY 
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ALGORITHM FIGURE - 


CZRCH RC25 DISK FORMATTER 
RCT sector 3 
RCT sector n 

entrance to routine=--> 

RCT sector n+1 


REV A PATCH 00 USER DOCUMENTATION 
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SEQ 42 
CZRCH1 CZRCH RC25 DISK FORMATTER 11-Jul-17 : VAX=11 Bliss-16 V3-555 Page 4 
REV A PATCH 00 USER DOCUMENTATION 8-Jul-1 : SPIDERSUSERS: CNEALE .AZTECIJCZRCH1.816;4 (27) 


167? APPENDIX G 

108? CREATING CZRCHA DM CODE 
1637 G.I FILES REQUIRED 

1638 A. RTEM (RT=11 emulator) including: 

a. DMACRO.SAV The DM macro assembler 
b. DMACRO.MAC The DM macro Library 


c. DTX.SAV The XXDP+ UPD2 emulator including: 
d. DTX DRIVERS including: 
IZDDAO.DTX 


2 


o 
w 


CDONAULSWN $$ O OONOUSWN OO 


WONOULSWN— 


I 
IZMSAO.DTX 
10. IZMTAO.DTX 


e. STARTM.COM RTEM start up com file. See below 
assembling DM source files 


B. DMCONV.EXE 
Converts DMACRO output .SAV files into a Bliss 
ascii array. This ascii array is then built into 
a seperate Bliss module and compiled. The object 
code from this module is then Linked with other 
Bliss object modules resulting in a APT compatible, 
cone tgrens object file including both host and DM 
code. 


G.1 BUILDING DM SOURCE CODE 
5M source code can be built using any of the text editors 
available under any operating system. Guide lines for its 
creation can be found in the AZTEC.DOC manual. 


G.2 ASSEMBLING DM SOURCE CODE 
The DM macro assembler (DMACRO.SAV) is used to assemble DM 
code modules and is written to be run under RT-11 (or RTEM 
emulator). The following example demonstrated the RTEM 
startup com file used to create the released DM formatter 
-SAV file. This start-up command file includes: allocating 
more virtual storage bringing the DM source code into the 
RTEM system, assem Lin he DM source code, Linking and 
moving the output .SAV file back to the user directory. 
The following example is performed on VMS operating system. 


$ <VMS> 

$ set def C[neale.rtem] 'Set default directory to the RTEM sub-directory 
$ mcr rtem ‘Run the RT-11 emulator 

- RTE>/vs 'Type /vs to prompt RTE> 


RTEM=11 (VAX/VMS) V01.00 
RT-11FB (S) V04.00L 


RAAAARAAAAR ERE RRR Roe 


BRESS 


343 


SSS: 


SNA NNN 
WONAULSWN—OOOnN 


AAAAAAAAAQD 


SEREReSS 


AAAAAAAIAAAAA GABAA AAAAAAAAAAAAAA AHAAAAAAAAAGAAAAAAAAAAAAAOAAA 


— os Ss = SS SS = Ss Ss Ss Ss Ss Ss SS SS SS SS SS I BS SS SS SS = SS = SS = SS SS SS SI St I oS I SS SS OS St YS I 


oa 
Co 
om~ 





E 4 


SEQ 43 
CZRCH1 CZRCH_RC25 DISK FORMATTER 11-Jul-1983 VAX-11 Bliss-16 V3-555 Page 43 
REV A PATCH 00 USER DOCUMENTATION 8-Jul-1983 1 18 SPIDERSUSERS: [NEALE AZTECICZRCHT. B16;4 27) 


i The following is performed by the startm.com start-up command file. Before 
i punning the command file the virtual storage disk VS1: must have already 
: : been generated using the JOAT utility. 


Ser TT:NOCRLF SCOPE WIDTH 80 'Set term characteristics 

° ‘Enter JOAT (Jack of all trades) utility 
ee ee seeans Merann device VS1: to RTEM system 
Shel x 


DEL VS1:*.* !'Make room in VS1: for this assembly 

. ‘Enter File interchange program 

eg earn nn eee ier ine, } DM source code from user directory 
* xi 


-R DMACRO 'Run the DM macro assembler 
*VS1:AZFMTR,AZFMTR=DMACRO,VS1:AZFMTR ‘Assemble DM source and save in VS1: 
**C ‘Exit the DM assembler 


eR LINK ‘Run the RTEM Linker 
*VS1:AZFMTR,AZFMTR=VS1:AZFMTR 'Link the tm file’ and save in VS1: 
**C ‘Exit the Linker 


oR FIP 

* (NEALE .AZTECJ/F=VS1:AZFMTR.LST ' e to user directory 
= laminae init mchataated e to user directory 
F ed 


-B00 SY ‘Return to VMS 
$ <VMS> 


G.3 BUILDING THE BLISS ASCII ARRAY 
The next step is to run the DMCONV program to build the 
Bliss ascii arrey from the DMACRO output .SAV file. To 
do this follow this example: 


$ run DMCONV.EXE 

INPUT FILE NAME (1.E. XXXXXX.YVYY) AZFMTR.SAV 
OUTPUT FILE NAME (I.E. XXXXXX.YYY) AZFMTR.VEC 
BLOCK VECTOR NAME (I.E. XXXXXX.YYY) AZFMTR 


Not 
“4 this example it is assumed that DMCONV.EXE and the 
SAV file are both in the default directory. 


G.4 BUILDING THE DM BLISS MODULE 
The output from the DMCONV program (AZFMTR.VEC) is then 
included into a Bliss module (for the purpose of CZRCHA this 
module is AZKEL6.816) and compiled. To compile this module 
takes a VERY long time so it is suggested that it is submitted 
to che | batch queue after hours. 


29 
0 
1 
2 
3 
4 
5 
36 
37 
38 
39 
40 
1 
2 
3 
4 
5 
6 


The entire procedure to compile and Link all Bliss source 
modules (including the DM bliss module) is demonstrated by 
the following command procedure (azcom.com): 


C1 
C1 
C1 
C1 
c 1 
C1 
c 1 
C1 
C1 
C1 
c 1 
c 1 
Cc 1 
Cc 1 
Cc 1 
Cc 1 
Cc 1 
Cc 1 
c 1 
C1 
C1 
c 1 
C1 
c 1 
. ¥ 
7 
C1 
c 1 
a. 
C1 
.. 
C1 
C1 
C1 
c 1 
C1 
C1 
C1 
C1 
C1 
. ¥ 
C1 
Cc 1 
C1 
Cc 1 
C1 
. 7 
C1 
C1 
cy 
C1 
C1 
c Y 
c ¥ 
C1 
.? 
¢ 1 
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CZRCH1 CZRCH RC25_ DISK FORMATTER 11-Jul-1983 16:04:50 VAX-11 Bliss=16 V3-555 44 
REV A PATCH 00 USER DOCUMENTATION 8-Jul-19835 13: $PIDERSUSERS: CNEALE .AZTECICZRCH1. B16: é 27) 


1747 'Execute command procedre 


st/library CZRCHO.R16 
sting=CZRCHA.DOC CZRCH1.816 
CZRCH2.B16 


wise 


ss/ ="K 
iss/pdpityUist FZRCHE. B16 
process/name='F is 

Btiss7 dpii/list CZRCH?. "B16 

CZRCHA/NOHD/NOMM, CZRCHA/CR/-SP=CZRCH2, CZRCH3,CZRCH4,CZRCHS,CZRCH6,CZRCH7,neislb/Lb 


PAR=DUMMY : 2000: 176000 
yy ACK=0 


AMAMPAHAMHMHMHHMOOWM 
vouvncoocoocpcoyv ® 
@—-8—-—--—-—-—-8e 

= a 


AAQQWMMANVIVVIVIVG 
USWA $0 OO@NOUSW—OVOeW 


asdodaaNUUuuanne 


o 


ee 


NN 


* 
Now run the TKBBIN program to create a .bin file : 


$ 
$! 
$ ie 

$ it 

$ PITITIITIITILITILL LILI LL LLL LLL LLL ELLE LLL TLL LLL 

: set noverify 

The TKBBIN utility is then run on the output from the TKB linker to produce 
an XXDP+ executable .BIN file. The following is an exampie of the procedure: 


$ RUN TKBBIN 
Input filename ? CZRCHA 
zload Addr: 2000 
xfer Addr : 
z:Nr char : 74600 
End of Job. 


a a ks a a SF os SS SS SS et 


G.5 SETTING -BIN FILES ONTO XXDP+ MEDIA 
RT-11 emulator is used to move XXDP+ .BIN files from a 
vm ao directory onto XXDP+ media. The following is an 
example of this procedure. 


$ set def Cneale.rtem] 'Set default directory to RTEM sub-directory 
$ mcr rtem 'Run the RT-11 emulator 
eRTE>/vs 'Type /vs to prompt 


BOS 
Wr 


i 

' The startm.com command file will automatically 
i begin to execute wren entering RTEM. Control 

i he command procedure at this time and do the 
following: 


<R JOAT 'Run JOAT utility 
-DLO:/A ‘Allocate XXDP+ euiien to pip .BIN file to 
**C ‘Exit JOAT 


Sesessz 


SSS 
wr 


oR FIP ‘Run FIP utility 
*VS1:=CNEALE .AZTECICZRCHA.BIN/F/I ‘Bring .BIN file from user directory into VS1: 
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CZRCH1 CZRCH RC25 DISK FORMATTER 11-Jul-1983 16:04:50 VAX-11 Bliss-16 V3=-555 
REV A PATCH 00 USER DOCUMENTATION B-Jul=19835 13:42:19 SPIDERSUSERS: CNEALE .AZTECICZRCH1. B16s2 27) 


#*C 'Exit FIP 


R DIX ‘Run the XXDP+ UPD2 emulat 
*DEL DLO:CZRCHA.BIN ! media old -BIN file 
*PIP DLO: Crem BIN=VS1:CZRCHA.BIN ! e di 
ed DLO:C |A.BIN ‘Load the atte t to verify the chack-sum 
AO pO0es reoRe : 002000, 76600 
~ ‘Exit DIX 


SF 


Be Fe Se Se Ge Ge Se Ge Fe Se oe 
AOAOAOOOAOAIAA 
5000 Go Gb Gp ae on cpap cece 
LLL LSSES 
Fwn-o0@an 


-B00 SY 'Boot back to VMS 
$ <vMS> ‘Back at VMS again 
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CZRCH1 CZRCH RC25_ DISK FORMATTER 11-Jul-1983 19:08: 
REV. A PATCH 00 USER DOCUMENTATION 8-Jul-1983 13:42: 


APPENDIX H 
CREATING CZRCHA HOST CODE 
H.1 sha re gps 
Text edito 
8: Bliss16 conpi tier 


- TKB Lin 
D. TKBBIN rUtility This converts Bliss16 .EXE files into XXPD+ 
-BIN files. 


iene 46 
+ VAX=-11 Bliss=16 V3-555 


46 
SPIDERSUSERS: CNEALE .AZTECIJCZRCH1 Bi6s2 28) 


H.1 SOURCE FILE CREATING 


Using any text editor, follow PDP-11 diagnostic design quidelines demonstrated 
in SUPPRGC.DOC and CHQUSD.SEQ. 


H.2 COMPILING BLISS SOURCE MODULES 


Follow steps starting at G.4 to compile Bliss source modules and 
to get the .BIN file onto XXDP+ media. 


AAOOAHWOIONHOAOIOOOAIOOAOAAOAOOAA 
= 


TITLE yt ge coun RC25 DISK FORMATTER 
“IDENT /REV 
PSECT SUMMARY 
Psect Name Words Attributes 


COMMAND QUALIFIERS 
BLISS /PDP11/LIST=CZRCHA.DOC CZRCH1.B16 


; Size: 0 code + 0 data words 
: Run Time: 00: 

: f\epeed Time: 00: 15. 1 

; meme Used: 6 pages 

Compilation Complete 
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SEQ 47 
RC25 FORMATTER LIBRARY MODULE 11<Jul+1983 16:06: VAX-11 Bliss-16 V3-555 Pa 
sand agate ta 6-Jul-1983 11:33: SPIDERSUSERS: NEALE AZTECICZRCHO.R16;2° (1) 


ZTITLE *RC25 FORMATTER LIBRARY MODULE’ 
Zsbttl "MACRO DEFINITIONS’ 


mac ro 


i This macro will transfer the operator inputed date from it storage 
: place into the send buffer where it will then be sent to the DM. 


SFILLDATE = 
begin 


yi snd_buf : vector (74, byteJ; 
incru i from 0 to 11 do SND_BUF C.i] = .DATETXT C.iJ; 
end;%, 

WRT_RC25 (0, IMAGE) = 


begin 
local 
RCSM_REG; 
RCSM_REG = IMAGE; 
CRECS_ADOR + Zupval*O0) = .RCSM_REG; 
en ae 


gesseees 


BB2Z2222 
POR a a a 
WN $OVONOUSWN-OO 


B2BZBZIBIISz 
sesesssssssasoses 


i Dup Protocol Macros Declarations 


REC_BASE = 
HDR_SIZ, 0, 0, 16, 0%, 
SND_BASE = 
HDR_SIZ + REC_ALLOCATE , 0, 0, 16, 0%, 


i Macro to clear out the DUP send data text buffer 
! before requesting input form operator. This b 
; Sotens puts a null byte at the end of the asci 
! input. 


SCLRSBUF = 
incru i from 0 to SNDB_SIZE = 1 do SND_BUF C.iJ = ZEROS:%, 


: General purpose word reference field select 


WORD _REF = 
0, 16, 
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_ 48 
RC25_FORMATTER LIBRARY MODULE 11-Jul-1983 16: VAX-11 Bliss-16 V3=-555 
SUPERVISOR DEFINED LITERALS 6-Jul=19 583 11: 9:38 SPIDERSUSERS : (NEALE .AZTECICZRCHO.R16; 3 2) 


Z%sbttl "SUPERVISOR DEFINED LITERALS' 
Literal 
i eit DIF INITIONS 
BIT15 = Zo 100000 
*400 


aoawwww 
ee ae ae ee 
eoooco 


SULTTSSSST TT ITS 
SRS RSNR 
"22°SSSs 


RGSELSS 


aeaaedsddaa oooco 


ooo 


ae Gat ed bees et tree Bt bt Ome be 
anne 


BIT 100; 


i "event FLAG_DEFINITIONS 
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


EF_START = 32 ! START COMMAND WAS ISSUED 
EF “RESTART = $1 i 
EF-CONTINUE = 30, i 

EF"NEW = 29, i AN 

EF "PWR i A POWER-FAIL/POWER-UP OCCURRED 


= 28, 





K 4 
SEQ 49 
RC25 FORMATTER LIBRARY MODULE Vedut=1983 16:04:41 VAX=11 Bliss-16 V3-555 Page 
SUPERVISOR DEFINED LITERALS 6-Jul-1983 11:33:38 | SPIDERSUSERS:CNEALE.AZTECICZRCHO.R16;2 (3) 
'¢ 
i PRIORITY LEVEL DEFINITIONS 
* PRIO7 = %0°340", 


PRI06 = %0'300', 
PRIOS = %0'240', 
PR 0'200° 


SOSCSCOOOSOOCOCOOSCCO 
rp perpereririert—y—t—T—1—1—t 1-7-7) 
NOARUNA=OSRNRAR AUIS 
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SEQ 50 
RC25 FORMATTER LIBRARY MODULE 11-Jul-1983 16:04:41 VAX=11 Bliss=16 V3-555 ‘a 4 
FORMATTER DEFINED LITERALS 6-Jul-19835 11:33:38 SPIDERSUSERS: NEALE AZTECICZRCHO.R16;2° (4) 


Zsbttl 'FORMATTER DEFINED LITERALS' 
; Down Line load external FCT copy Literals 


FCT_SEC_0 = 0 ‘FCT sector zero request 
FCT_SEC_15 = is, 'FCT sector fifteen request 


; Global flag word bit definitions 
NON_EXIST_REG = BITO, 'Non-existant register flag 
Message selection literials 


'Select message 0 
message 1 
message 2 


WN SC VONOULSWN OOo 


NOu 
DWDOONOULSWN— 


message 
message 22 
message 235 
message 24 
message 25 
message 26 
message 27 
MSG28 ! message 28 
MSG29 = 29, 'Select message 29 
; MSG50 = 30, 'Select message 30 


Miscellanious Literals 


z= 
on 
ag 
mr 
NOu 


WIRIPRIPONNMINIPIAPONIAD <8 ad ad a we et we wm wt tt 8 
io 


WONOUSWN $OVONOULSWN—OoO 
=z 
nn 
13) 
Nm 


DONAUSWN $9 OONOULSWN Oo 
see eseseeseesese esses eee 


Wwrh=— 


!DUP connection ID constant 
'MSCP connection ID constant 
‘Failure return code 
'Success return code 
'Selects block 0 of struct 


Wr—O Ooo QS 


‘Selects word 0 of block 
‘Selects word 1 of block 


ecosececeeseceoeeeeoseceosseessssesessessessoseseosesesss 


DPA ES & SS 





RC25 FORMATTER LIBRARY MODULE 
FORMATTER DEFINED LITERALS 


Nyniw 
aM 
ee 
fy 


L$LIM 
DM. SI 340, 
FCT_SIZE = 4096, 


Mm 4 


11-Jul-1983 16:04: 
6-Jul-1983 11:33: 


'Selects wor 
'Selects wor 


we 


s3cooooc oa-— 


f 
f 
f 
f 
of 
'Select the read wo 
‘Initialization sequence step one 
‘Initialization sequence step two 
'True indicator 


ator 
'Set the indicated flag to one 
'Clear the indicated flag to zero 
'Ones data type 
‘Zero data type 
'ALL ones data type 
‘ALL zeros data type 
‘Allowable number of units to format 
'Size of DM buffer size 
'Size of fct buffer size 


! Command opcode bits 6 and 7 indicate the type of message 


! (command, end or attention message). 
: define these field values. 


CMDSMSG = %b'00', 
ATT$MSG = %b'01", 
ENDSMSG = %b'10", 


Error code literials 


PAS_CODE 
CIE~CODE 


Dup Protocol Literials 


i Note: 


The following Literials 


!'Command opcode message type 
'Attention opcode msg type 
!End opcode message type 


'Pass code 

'Communication area init error 
‘Controller time out error 

‘Port fatal error 

'response status error 
'Host/Controller out of sequence 
‘Remote program died error code 
'Port/host synchronious error 
'Message length error code 
‘Unknown end code error 

‘Adaptor purge reguest error 
‘Unknown interrupt error code 
‘Attention msg received 

'Command msg received 

‘Serious exception error received 
'Invalid command error received 
‘Unknown message type 

‘Out standing buffer full error 
'Out$std_buffer out of sync error 
‘Unknown message number 

‘File read error code from load media 
‘Illegal FCT file length 


VAX-11 Bliss-16 V3-555 
SPIDERSUSERS : (NEALE .AZTEC 


Ist) ISD_STRUCTURE 
'Select the write word (2nd) in ISD STRUCTURE 


SEQ 51 
Page 
ICZRCHO.R16;2 (4) 
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RC25 FORMATTER LIBRARY MODULE 
FORMATTER DEFINED LITERALS 


The values seoigree to the literials 
REC_SIZ, SND_SIZ are represented in 
powers of 2 notation per DUP spec. 


By redefining these two literials the 
communications area allocation and init 
sequence is automat ical ty handled and 
no other parameter modific 


Further more the send and receive rings 
can be of different lengths. 


per DUP spec. 


REC_SIZ = 2, 
SND~SIZ = 2, 


This one is tricky: (Hdr_siz) 


N 4 


SEQ 52 
11-Jul-1983 16:04:41 VAX-11 Bliss-16 V3-555 Pa 
6-Jul-1983 11:33:38 SP IDERSUSERS : LNEALE AZTECICZRCHO.R16;2° (4) 


ation is needed. 


However the 
maximum value allowed is 7 (2**7 = 128 slots) 


'Define number of receive slots 
'Define number of send slots 


he communication area is defined to be a 
contigious Blockvector (two words per block) 


pase segment of size, Rec_allocate + Snd 
r siz. 
two words needed to represent the ring 


Hdr_siz is then really * 2 or 4 words of 
to represent the interrupt ard purge ind 


HDR_SIZ = 2, 


REC_ALLOCATE = 1°REC_SIZ, 
SND_ALLOCATE = 1*SND-SIZ, 


allocate + 
The two words per block — from the 
e 


scriptors. 


storage 
icators. 


'Define com area header size 4 words 


'Define receive ring allocation 
'Define send ring allocation 


i Ring_size equals the total number of ring descriptors 


! (number of. word blocks) allocated 
: communitcations area. 


within the 


RING_SIZE = REC_ALLOCATE + SND_ALLOCATE + HDR_SIZ, 


The RB_SIZ by definition, DUP spec, must be 
a minimum of 60 bytes long (30 words) 64 bytes 
overall. The additional 2 words for the UQ 
port information is accounted for in azkel2 
when the storage is allocated. 


RB_SIZE = 30, 


The biggest command I'll ever send will 
be (I hope) will be 40 bytes, 42 overall, 
and again the UQ port 2 words is allowed 
for in azkel2. 


SB_SIZE = 20, 
SNDB_SIZE = 37 
RECB-SIZE = 120, 
PORT-OWNED = 1, 


‘Number of ‘‘words’’ in response buffer 


: Number of ‘words’’ in send buffer 


iSend DUP cmd text buffer size. 
‘Receive DUP cmd text buffer size 
!Descriptor owned by port 
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HOST_OWNED = 0, !Descriptor owned by host 
Delay literal values 


An argument of one results in a 100us 
delay. 


A roman numeral notation is used to 
denote values of delay arguments. 
The notation is as follows: 


1 (1), Vv (5), X (10), L (50), C (100), 
D (500), M (1000) 


a symbol following another of 7 or greeter 
value adds to its value, as II = 2, XI = 11. 


Any symbol erocenes one of greater value subtracts 
from the second and the remainder added to the first 
as XIV = 14, LIX = 59. 


ONE_SEC = 1000 'One second delay argument 
ONE-MINUTE = 60000, 'One minute delay argument 
uS = 1 !100 micro sec delay argument 
= 3 '200 micro sec delay argument 
'300 micro sec delay argument 
'400 micro sec delay argument 
!'500 micro sec delay argument 


Oe Oe a 8 a 8 OE EOE EEE EES OEE Ee 


i RC25 register offsets 


RCIP = 0, 
RCSA = 1 


' Command packet opcodes 
! (See note following) 


‘Abort command 

‘Access command 

‘Available command 

‘Compare controller data command 
‘Compare host data command 
‘Determine access path 

‘Erase command 

'Flush command 

'Get command status command 

'Get unit status command 

‘Online command 

‘Read command 

‘Replace command 

'Set controller characteristics command 
'Set unit characteristics command 
‘Write command 

‘Maintenance read command 
'Maintenance write command 
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i End message and serious exception encodes 
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(see note following) 


= %0'200', ‘End packet flag 
= Zo'7', 'Serious exception end packet 


Attention message endcodes 


‘Available attention message 

'Duplicate unit number attention message 
‘Access path attention message 

'Reset command Limit attention message 


'Get dust status 

‘Execute supplied program 
‘Execute local program 
‘Receive data 

'Send data 

'Abort program 


End ae? opcodes (also called endcodes) are formed by adding the end 

message flag to the command opcode. for example, a READ commands end 

message contains the value OP.RED + OP.END in its opcode field. The Invalid 
command end message contains just the end maonage flag (i.e., OP.END) in 

its opcode field. The serious exception opcode shown above (i.e. OP.SEX + 

OP.END) in its opcode field. 


Commands opcode bits 6 and 7 indicate the type of message (command, end or 
attention message. Command opcodes bits 3 through 5 indicate the command 
catagory (immediate, sequential or no-sequential) and whether or not the 
command includes a buffer descriptor. 


See MSCP document appendix ‘‘A-1 NOTE:'’ for more information on this topic. 


j 
: DUP endcode message types 


EOP_GDS = OP_GDS + OP_END, 'Get dust status 
‘Execute supplied program 
“ ‘Execute local program 
EOP_RED RED + OP_EN ‘Receive data 
EOP_SED 'Send data 
EOP_ABT !Abort program 


MSCP endcode messag types 


OP_ABO + OP_END, ‘Abort command 
OP_ACC + OP_END, ‘Access command 
OP_ ‘Available command 
oP ‘Compare controller data command 
OP_END ‘Compare host data command 
oP ‘Erase command 
oP ‘Flush command 


D5 
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'Get command status command 

'Get unit status command 

‘Online command 

'Read command 

‘Replace command 

'Set controller characteristics command 
'Set unit characteristics command 
‘Write command 

‘Maintenance read command 
‘Maintenance write command 
'Serious exception 
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1+ 
' Dup Command message envelope 

! byte sizes beginn ng at text+0 

! of the command envelope. 

12, 'Get dust status size 

40, ‘Execute supplied program size 
48, ‘Execute local program size 
28, ‘Receive data size 

28, 'Send data size 

12, ‘Abort program size 


14 

! MSCP Command message envelope 
' byte sizes beginning at text+0 
! of the command envelope. 


le 
SZ.SCC = 32, 'Set Controller characteristics 
36, !On=-Line command 


'¢ 

! The following are the expected number of bytes 
! in a commands end packet transmitted by the 
: communications mechanism to the host. 


‘ 
DUP command end message sizes 


ZDEC IMAL 'Get dust status end packet size 
‘Execute supplied prog end pecker size 
‘Execute local prog end packet size 
‘Receive data end packet size 
'Send data end packet size 
‘Abort program end packet size 


command end message sizes 


= ZDECIMAL ‘48', 'Set controller characteristics 
= ZDECIMAL ‘48°; 'On Line command 
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SEQ 56 
FELD DECLARATIONS UTE "B-Jut=1983 11:53:38 SPIDERSUSERS:ENEALE. AZTECICZRCHO.R16;2°C5) 
%sbttl ‘FIELD DECLARATIONS’ 
field 
+ 
Definitions: 


ISD_FIELD = Initialization Sequence Data_Field 
ISRD_ = Initialization Sequence Read = 0 
ISWRT_ = Initialization Sequence Write = 1 
S1R_ = Step One Read 


S1W_ 


Step One Write 


etc. 


ISD_FIELD 
set 


i Miscellanious status register field 
: referance declarations. 


RC_ALL = (0, 16, 0] 'RC25 word access 
ERR_BIT = CiS, i, 03, ‘Error bit 
ish ALL = £0, 16, 0J, 'Initialize sequence read word 


WALL = (0, 16, 0] ‘Initialize sequence write word 
STP-FIELD = £11, 4, 0), iALL step bit fields 
SA_GO = £0, 1, 0) ‘Status register GO bit 


ERR_CODE ="70, 11. 03. 'SA register fatal error code 

Step one read SA register field reference 

S1R_STEP = (11, 1, 0), Step one step bit 

SIR_NV = C10, 1, 0), 'No host inter vec settable adrs 
$1R_0B = (9, 1, 0], !22-bit addressing support 

S1R_DI = (8, 1, 0], ‘Enhanced diag implementation 
S1R_OD = (7, 1, 0], ‘Port allows odd host address 
SIR_MP = [6, 1, 0] ‘Port supports address mapping 
SIR_RSvD = £0,'6, 63. iReserved field 

Step one write SA register field reference 

Siw_wR = (14, 1, 0J, iDiag wrap around 

S1W-CRING = (11, 3,°0), inumber of C-ring slots ‘pwrs of 2° 
SiW_RRING = (8, 3, 0J, ‘Number of R-ring slots ‘pwrs of 2° 
SIWiIE = (7, 1._03 ‘Init Sequence interrupt request 
S1iW_VADR = fo.°7. 63. !Interrupt vector address 


i. 
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Step two read SA register field reference 


12, 1, 0], 'Step two step bit 
'Port type number 
igchoed” IE bit from step one write 
Je 'Echoed bit 14 from step one write 
. *0). '‘Echoed bits 3-5 from step one write 
. OJ, 'Echoed bits 0-2 from step one write 


i i step two write SA register field reference 


éy =LRBASE = CO, 16, 0], 'Ring base lower address 
S2W_ PI = C0, te Ge ‘Adapter purge interrupt request 


i . Step three read SA register field reference 


§3R_ STEP = (13, 1, 0], 'Step three step bit 

S3R_ -RSVD 7 (8, 3 “01, ‘Reserved 

3R_IE = ‘. 63 '‘Echoed IE bit from step one write 
S3R- VADR = he” r, 43, iEchoed VADR from step one write 


i . Step three write SA register field reference 


3y PP = C15, 0J, ‘Purge & Poll test request 
SSW HRBASE = 0" 15, 0), 'Ring base high address 


3 Step four read SA register field reference 


S4R_ STEP = (14, 1, 0), 'Step four step bit 

S4R_ abs ~ (8, o *0], ‘Reserved 

S4R_MOD = (4, 4, 0], ‘Encoded controller indentification 
S4R_ VER = C0. ; 0). 'Mod 16 value of u-code version 


i : Step four write SA register field reference 

Sau, RSVD = (8, 8, 0] ‘Reserved 

S4W_BURST = C2, 04. 'Max number Sonquares per NPR xfer 
iieee reve request 





ipa SEQ 58 


RC25 FORMATTER LIBRARY MODULE 11<Jjul-1983 16:06:41 VAX-11 Bliss-16 V3-555 Page 12 
FIELD DECLARATIONS b-Jut=1983 11:33:38 SPIDERSUSERS: CNEALE .AZTECICZRCHO.R16;2 (6) 


'¢ 

! Field declaration to define the interrupt 
indicator and purge words of the communications 
! area. 


HDR_FIELD = 
set 


Header Word Ringbase -4 
RESERVED = (0, 0, 16, 02, 
: Header Word Ringbase -3 


RSvVD = (1, 0, 8, 0) 
aDP_cH = £1,°8,°8, 63, 


=) Header Word Ringbase -2 
CMD_INT = C2, 0, 16, 02, 
Header Word Ringbase -1 


RSP_INT = [3, 0, 16, 0] 
tes, 
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'¢ 
! Field declaration to define the fields within 
! the send and receive ring descriptors. 


DSC_FIELD = 
set 


i Low order envelope address 
LOLENSAD = CO, 0, 16, 0], 
High order 18 bit unibus or Qbus address 
HI_ENSAD = (1, 0, 2, 0). 

; Q_Bus extention address 
QB_ExT = C1, 2, 4, 0), 

: Reserver field 

DSRSVD = [1, 6, 8, 0], 

i Flag bit 

FLAG_B1T = C1, 14, 1, 03, 
Ownership bit 


OWN_BIT = (1, 15, 1, 0] 
tes, 








SERRESEERS 
NC CBNOUEWN =O 


0623 


added 


RC25 FORMATTER LIBRARY MODULE 
FIELD DECLARATIONS 


te 
! Field declaration to define the fields within 
: message envelope buffers. 


ENV_FIELD = 
set 
; UQ Port envelope header field eclaration 


MSG_LENGTH = CO, 0, 16, 0], ‘Message Length 
nse TYPE = {1. 4, 6,05 inessage,t 

= e ae o _ . ss e 
CONR_ID = (1, 8, 8, 0J, iconnestion 1D 


‘ DUP/MSCP command and response envelope header 
: field declaration 


SEO 60 
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CMD_LREF = fe. 0. 16, OJ, 'Command Ref number low word 
CMD_HREF = C3, 0, 16, 0], 'Command Ref number high word 
UNIT_NUM = [4, 0, 16, 0J, ‘unit selection field 
UN_LOSED = £4, 0, 16, 0], ‘Unused low word 
UN_HUSED = (5, 0, 16, 0J, 'Unused high word 
TYPSMSG = [6, 6, 2, 0), 'End code message type 

CODE = (6, 0, 8, 0) 'Opcode 
ENDCODE = (6, 0, 8 03, iOpcode 
ESFLAG = (6, 8, 8, 0J ‘End meonage flag field 


‘Reserve 


'Status 
STA_CODE = t7, 0, 5, 5 'Status code 
TFIER = £7, 0. 16, 03, iModi fier 


'o4 
!' DUP command and response envelope parameter 
! field declarations 


'¢@ 


' 
' 
: No parameters declared 
t 


i response FIELD 
! No parameters declared 


4 
: GET DUST STATUS command and response envelope 
; parameter field declaration 


COMMAND FIELD 
No parameters declared 


i 

f 

i 

: response FIELD 
PLO_EXT = (8, 0, 16, 0), 


!Program Extension low word 
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:Program Extension high word 


‘Flag. field bit 9 

'Flag field bit 

flag field bit 2 

iplag field bit 

'Progress indicator low word 
19 ee indicator high word 


i * EXECUTE SUPPLIED PROGRAM command and response 
: envelope parameter field declartion 


COMMAND FIELD 


BLO_ CNT = = (8, 0, 'Byte count low word 
BHI_CN 'Byte count high word 
iBuffer physical oars bits <0-15> 
‘Buffer physical adrs bits <16-17> 
'Q_bus extention 
iReserved field 

bus adaptor channel number 
These next four words are not 
rin the UQ port implementation. 


°o 
a 
Ue De Le Le ee 


i These next field definitions are the same 
' as above except they are for the overlay 

: buffer descriptors. To make life easy for 
! me I'll use the same names and just prefix 
: the names with a $ for uniqueness. 


$BPA_ LO = £6. 6. i. 0), ‘Buffer physical adrs bits <0-15> 
$BPA_ a® = C17 ‘Buffer physical adrs bits <16-17> 
$0BUS_E 'Q_bus extention 

iReserved field 

'Unibus adaptor channel number 

'These next four words are not 

‘in the UQ port implementation. 


i espons 
' No parameters declared 


i i EXECUTE LOCAL PROGRAM command and response 
parameter field declartion 


COMMAND FIELD 


(8, 0, 16, 0], ‘Program name word 0 
(9, 0, 16, 0J, ‘Program name word 1 
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PN.2 = (10, 0, 16, 0], !Program name word 2 

response FIELD 

version, = £8 0, 16, 1. 'Version 

TIME 5.8 6. 8. 0). iTime out 

FLAGS ; 8. 53.” iF lags 


44 
i SEND DATA/RECEIVE DATA command and response 
i parameter field declartion 


; COMMAND FIELD 

i byte count, buffer descriptor are the same 
as Execute Supplied Program parameters 

i response FIELD 

i byte count is the same 

i as Execute Supplied Program parameters 


'e¢ 
i MSCP command and response envelope parameter 
' field declarations 


'¢ 
! SET CONTROLLER CHARACTERISTICS command and response 
in parameter field declartion 


COMMAND FIELD 
MSCP VER = C 8, 0, 16, 0] 'MSCP version 

cn. FLAG S_ =C 9, 6, 16. 03, ‘Controller flags 

os? Tov = C 10. 0. 16 0J, ‘Host time out value 

A $vb 2 C11, 0; 16, 03, ‘Reserved 

T$D_0 = C 12, 0, 16, 0], !Time and Date word 0 
T$D_1 = C 13, 0, 16, 0], 'Time and Date word 1 
He SE 8 18 Be ting a Ste tor § 
cOP-LO =C 16, 6, 16, 04, 'Cntlr dep parameter lo word 
CDP _ HI =[C 17, 0; 16, 0], 'Cntlr dep parameter hi wrd 
RESPONSE FIELD 

iMSCP VER = C 8, 0 19, 0) ‘Same as cmd field 

icTL FLAGS = C 9, 6 05, 'Same as cmd field 

CTL_Tov = C 10, 6, ie. %53° 'Cntle time out value 

cSvRSN s f 1, ‘g. g. 63,” ignete s/u. AM. u=code rev num 
c1D_0 = £ 12,°0, 16. 0]. i¢ntlr identifier wed 0 
CID_1 = C 13, 0, 16. 9J, 'Cntlr identifier wrd 1 
cID-2 = € 14,0 16, 0], 'Cntlr identifier wrd 
CID_-3 = C 15, 9, 16, 0), 'Cntlr identifier wrd 

i] 
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' ONLINE COMMAND command and response 
Parameter field declartion 

; COMMAND FIELD 

RSvSD=, £6: "% p16 6,°3 

WN BSD = * 10, 6. sel 6,02. 

RSVD$1 = C 11, 0, 16, OJ, 
SvD$2 = C 12, 0, 16, 0], 

RSVD$3 = C 13, 0. 16, OJ. 
Svd$4 = C 14, 0, 16, OJ, 

RSvD$S = C 15, 0, 16, 0], 
Seat =F 19 8: Hee 
SHADOW_UNIT = C 18, 0, 16, 0). 
COPY. SpEED = f 19, 0, 16, 0J, 


RESPONSE FIELD 


MUNT_ CODE = C 8, 0, 16. 0], 


UNT FLAGS = 
RSV vBso = 
l= f 
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'Reserved 
‘Unit flag fiel 
‘Reserved field 
‘Reserved field 
‘Reserved field 
‘Reserved field 
‘Reserved field 
‘Reserved field 
‘Device dependent parameter 
‘Device dependent parameter 
!Shadow unit 

'Copy speed 


d 


'Multiqeunit code 
'Same as cmd fie 
e 
€ 


d 
J d 
'Same as cmd field 
'Unit ident word 0 
‘Unit ident word 1 


‘Unit ident word 3 
'Media type ident word 0 
‘Media type ident word 
'Same as cmd 

'Shadow state 


iunit size hi word 
‘Volume serial num lo word 
‘Volume serial num hi word 


241 VAX-11 Bliss-16 V3-555 17 
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'¢ 
: Send Receive command buffer field definition 


RECB_FIELD = 
set 


'¢ 
: Outstanding command buffer field declarations 


OUTSFIELD = 

se 

'Command word ref ‘word 0 of slot*’ 
'Command received indicator flag 
‘Command reference field 

‘Envelope adrs field 
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0841 %sbttl "LINKAGE DELCARATIONS' 
0843 Linkage 
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i Call_Unk$typ 
This spcifies that the PDP-11 JSR and RTS instructions 
are used by the compiled code, and that the parameters 
with standard parameters locations are passed using 
register 5 (R5) as the argument pointer with the register 
usage as follows: 
i Register Usage 
0 Value return register, non-preserved 
1-4 Preserved 
5 Argument pointer 
6 Stack pointer 
7 Program counter 


ALL_LNKSTYP = call (standard), 


' Int_Unk$typ 


i Specifies that a routine will be called only by a PDP-11 
! hardware or software interrupt and will be returned via 
' the RTI instruction. Register usage is as follows: 


i Register Default usage 
0-5 Preserved 
6 Stack pointer 
7 Program pointer 


NT_LNKSTYP = interrupt (standard); 


COMMAND QUALIFIERS 


BLISS /PDP11/LIST/LIBRARY CZRCHO.R16 


Run Time: 


00:06.0 


Elapsed Time: 00:07.6 


Memory Used: 51 pa 


Library Precompilat 


ges 
ton Complete 


VAX-11 Bliss-16 V3=555 
SPIDERSUSERS : [NEALE .AZTEC 
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SEQ 66 
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MODULE CZRCH2 (ZTITLE "CZRCH RC25 DISK FORMATTER’ 
IDENT = "REV A PATCH 00° 
ADDRESSING MODE (RELATIVE) , 
ENVIRONMENT (NOEIS) 
= 


BEGIN 

Zsbttl "PROGRAM HEADER’ 
; Pretty Declarations 

i <BLF /LOWERCASE_KEY> 


library ‘CZRCHO'; 'Define RC25 Formatter Library 
require ‘BLSMAC.REQ’; !Define Bliss Macro Require file 


14 

! The psect named ‘‘code or S$code$'’ is redefinded here 
! to be called ‘‘aa$code’’. This is done to force the TKB 
! Linker to place the programs header information starting 
at absolute address 2000. 


psect 
code = aa$code; 


literal 
DS$NBR_OF_TESTS = 1; !Indicates number of test in Diag 


The structure of a diagnostic program poy contain any or all of the 
ten optional sections. But five of the optional sections require a 
pointer that is derived by and for the supervisor, and is located in 
the header block. Therefore, in relation to the effective use of 
these five pointers, the optional sections call must be coded to re- 
flect usage (i.e., any,all,or none). 


The following coding possibilities exist: 
POINTER (BGNRPT ,BGNSW,BGNSF T ,BGNAU,BGNDU,ERRTBL ,BGNSETUP) 
(or any subset of the args) 
POINTER (ALL) ; ALL provides pointers for all five 
3; sections 
POINTER (NONE) : None indicates to supervisor that no 


WAWNRMUUVUMUNUNS S33 33S OOO 


&* 
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; pointers are required. 
; this is the default 


No pointers are optional using bliss. Make sure the followin 
sections of code are in place (in the correct skels),even i 
the sections are blank. 

ARGUMENT FUNCTION 


REPORT CODE 
SOFTWARE TABLE 


PVPVU PVPS SUS TTT III 
SEB WWW 
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Sac 
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11-Jul-198 
ER 7-Jul-198 


SOFTWARE TABLE QUESTIONS 
ADD CODE 

DROP CODE 

ERROR TABLE 

ASSEMBLED P-TABLES 


CZRCH RC25 DISK FORMATTER 
PROGRAM HEAD 


eneral 
cribes the major characteristics of the diagnostic program. 
cludes, the program name, and revision and patch-order levels. 
header also provides space 


The program header section contains 


other key sections of the program(e.g., dispatch 
clean-up code, etc.). An argument on the header 
if it is an XXDP+ bootable device. 
vide load medium protection when necessary. 


HEADER (Zascii‘CZRCH °, %ascii*A’, %ascii'O’, 1200, 0, PRIOO); 


VAX-11 Bliss-16 V3-555 
SPIDERSUSERS: [NEALE .AZTECICZRCH2.B16; 


] 

! information which des- 
‘ This in- 
4 The 
: for an event flag register, and for the 
! storage of pointers, through which the supervisor may find access to 
: table, initialize and 
: ives the device type 
} This enables the supervisor to pro- 
' 


Pa 
3% 


SEQ 67 
(1) 
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SEQ 68 
CZRCH_RC25 DISK FORM TTER 11-Jul-1983 16:05:07 VAX-11 Bliss-16 V3=555 Page 3 
983 21:37 SPIDERSUSERS : [NEALE .AZTECICZRCH2.816;2 2) 


CZRCH2 1 
REV A PATCH 00 DISPATCH TABLE 7=Jul-1 08: 


Rsbetl *DISPATCH TABLE‘ 

i The dispatch table section contains address pointers to the various 
' tests contained within the diagnostic program. This section requires 
; _the coding of only the dispatch macro. 


SISPATCH (DSSNBR_OF TESTS); 
ERRTBL; 


‘Define Supervisor Error table storage 
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SEQ 69 
CZRCH2 CZRCH RC25 DISK FORMATTER 11-Jul-1983 VAX-11 Bliss-16 V3=555 Page 4 
REV A PATCH 00 DEFAULT HARDWARE P-TABLE 7=Jul-1983 SPIDERSUSERS: CNEALE .AZTECICZRCH2.B16;2 %3) 


ree "DEFAULT HARDWARE P-TABLE* 
+ 


' The default hardware P-Table contains default values of 
' the test-device parameters. The structure of this table 
' is identical to the structure of the hardware P-Tables, 
: and is used as a ‘‘template’’ for building the P-Tables. 


BGNHW (DFPTBL); 


‘Define RC25 Controler IP reg 
HW_V 'Define RC25 interrupt vector adddrs 
HW_BR_LEVEL : initi es) iDefine RC25 bus request level 
HW-UNTT_NO : word initial (0); ‘Define RC25 unit no. to format 


ENDHW; a 
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SEQ 70 
CZRCH2 CZRCH RC25 DISK FORMATTER 11-Jul-1983 16:05:07 VAX-11 Bliss-16 V3-555 Page 
REV A PATCH 00 SOFTWARE P-TABLE 77-Jul-1983 08:21:37 SPIDERSUSERS: (NEALE .AZTECICZRCH2.B16;2 (4) 
3 1388 Xsbttl "SOFTWARE P-TABLE’ 
oe . + 
3 1591 ! The software table contains various data used by the 
3 1592 ! program as operational parameters. These parameters are 
: 1593 ! set up at assembly time and may be varied by the operator 
3 1594 ! at run time. 
3 1595 !- 
; 1596 BGNSW (SFPTBL); 
: 1597 
3 1598 global 
: 1200 SW_UNATT : word initial (1); !Format in unattended refmt mode 
: 1601 ENDSW:; 
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a 71 
CZRCH2 CZRCH RC25 DISK FORMATTER 11-Jul-198 : VAX-11 Bliss-16 V3=-555 
REV A PATCH 00 PROTECTION TABLE 7-Jul-198 SPIDERSUSERS: CNEALE .AZTECICZRCH2. B16: > %s) 


Rsbeel “PROTECTION TABLE’ 


i This table is used by the runtime 
' services to protect the load media. 


i Ist arg = Offset into P_Table for csr address 
! 2nd arg = Offset into P_Table for massbus address 
i. 3rd arg = Offset into P_Table for drive number 


BGNPROT (-1, <1, <1); 
ENDPROT; 
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SEQ 72 
CZRCH_RC25 DISK FORMATTER 11-Jul-1983 16:05:07 VAX-11 Bliss=16 V3-555 Pa 
MODULE DECLARATIONS 7=Jul-198 08:21:37 SPIDERSUSERS: NEALE AZTECICZRCH2.B16:2° (6) 


Rsbeetl "MODULE DECLARATIONS‘ 


Within BLSMAC.REQ the psect names, plit global and own, 
are redefined to be aa$code. This is done to force the 
tkb Linker to Link the header information starting at 
at absolute address 2000. Redefine these psect names 
back to their original names for house keeping purposes. 


Also change the attributes for the psect “‘global"’ so that 
: giobal data will not be Linked starting at absolute address 


CZRCH2 
REV A PATCH 


ru S 


sect 
plit = Splits¢ global). 
global = pate nowrite, noexecute, global, concatenate), 
own = Sownd; 


'¢ 


' Structure declarations used within this 
' module. 


meh ed ed td 2 a bd 2d td wd a 
CIOERELERRRR ROT eee 
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structure 


'¢ 

! RC25 register accessing structure. This 
' structure allows RC25 register accessing 
! to be transportable between the PDP-11 and 
: VAX Diagnostic Supervisors. 

! This also defines an access algorithm for 
: VAX to allow field reference to address 
! space without generating machine checks. 


rRC25 (CO, P, S, EJ] = 
begin 


a 
Seeeee. 


local 
RCS$S_REG; 


RC$S_REG = .(RC25 + XZupval*0)<0, Zbpval, 0>; 
$S_REG 
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aoa 73 
CZRCH RC25 DISK FORMATTER 11-Jul-1983 16:05:07 VAX-11 Bliss-16 V3=555 
GLOBAL DATA SECTION 7=Jul=1983 08: 221: Hf SPIDERSUSERS: (NEALE .AZTECICZRCH2. B16: 7) 


Bsbetl "GLOBAL DATA SECTION’ 


i the global data section contains data that are used 
i in more than one test or module. 


global 
; Communication area Declarations 


COM_AREA : blockvector CREC_ALLOCATE + SND =A LOCATE + HDR_SIZ, 2, word], 
HEAD AREA : ref block (4, word) field (HDR-FIELD), 
RECETVE_RING : ref blockvecter CREC mates OCATE, 2, word) field sot FIELD), 
SEND_RING : ref blockvector CSND_ALCOCATE, 2. word) field (DSC_FIEL 
REC_ENVELOPE : blockvector CREC OLLOCATES'R RB_ SIZE + 2, word] field (ENV_ FIELD), 
7 ee ges blockvector_CSND_ALLOCATE, SB_SIZE + 2, word] field (ENV_FIELD), 
FCT a block C256, word], 
: block CRECB Size, word] field (RECB_FIELD), 

S-BUF : vector CS IZE, word], 
auTsstD D_BUF : ostesater TFheC’ ALLOCATE. 2, word] field (OUTSFIELD), 

TENSAD $ ref block CRB_ SIZE~+ 2, word) field (ENV_FIELD); 


global bind 
; Diagnostic supervisor printing ascii format strings. 


FMT1 = uplit (Zasciz‘ZN2ZT"), 'Print one ascii $5 4aHotan perme 

FMT2 = uplit (%asciz' ZNINZAINITIALIZING ote? CONTROL EP mrtg zs 

FMTS = uplit (Zasciz*ZNZALOGICAL UNIT Z%D2ZA(D)ZSZAPHYSICAL UN PRT SSEAFORMAT ABORTED’), 
FMT4 = uplit (Zasciz°ZNZAMICRO CODES MOD is VERSION NUMBER = AT OneA AO 

ai = uplit (Zasciz'ZNZABRINGING ONLINE: Med bes IT 20 2%A(D) XSZAP HYSICAL UNIT re 


wi end BE rae dt am NON-EXISTE ie te it ee ADDRESS %06ZA(0) ZN‘) 
= uplit z°ZAFORMATTING PHYSICAL UNIT D2ZA(D) ZN‘) 

PID D_FMT = Ay (asc iz INZAFORMATTER PROGRESSING: PID H1=%06%A(0)%S%SZAPID ssediatinaaie )», 
CRLF = _uplit (Zasciz'ZN'), 

XCR LF = uplit (%asciz* LNINZNENENENENIN' ) , 


i : Ring base address declaration 
RINGBASE = COM_AREA CREC_BASE], 


MSGADR = REC_BUF C[MSG_TXT); 


global 
Miscellaneous data declarations 
DATETXT : vector [12 byted. erator data input storage 
FLG_WRD : bitvector £16 ig obal flag wo 
NEX"FLAG : word, ‘Non-existent “RC 5 register flag 
Over word, ‘Overlay sect ion starti ting ed rs 
TLCRN : byt : ‘Stores next cmd ref 
RET STATUS : a initial (%0°000000"), 'Saves various return status codes 
LUN: ord, ‘Stores logical unit number being formatted 
PID_ SAVE: vector (2, word], ‘Saves proces indicator word 
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oan 74 
CZRCH2 CZRCH RC25 DISK FORMATTER 11-Jul-1983 1 3:07 VAX-11 Bliss-16 V3-555 
REV A PATCH 00 GLOBAL DATA SECTION 7-Jul=1983 0 SR: SPIDERSUSERS : CNEALE. AZTECICZRCH2.B16;2 7) 


NSD_SLOT : word, 'Next send Descriptor slot 
NRD_ SLOT : word, ‘Next receive Descriptor slot 


i Hardware P_Table storage declarations 

Rc2s ADDR : ref RC25 field (ISD_FIELD), ‘Controller register access structure 

V DDR : ‘Interrupt vector address storage 
:Bus request level storage 

UNIT_NO : word, it number to format storage 

PTBL_ “PTR : ref vector (4, word], ate fhe P_Table base address 


| on Protocol data structures 


laveerved field mask structure declaration 


RSVD_STRUCT : ysctor (4, word] preset ( 
TO) = 3x" O02 F 
C1) = &x° 3 
C2) = %x'07 
tS} = ix'o7rr'S, 
'¢ 
: Init Sequence Data_Structure declaration 
ISD_STRUCT : blockvector (4, 2, word) field (ISD_FIELD) preset ( 
one read SA a field declaration 
‘Error bit 
*%b"0001", ‘ALL step bit fields 
iNo sos inter vec settable adrs 


'Mask ou 
teehenced diag implementation 
'Mask out 


iD) 


Sunnnne: 
eeees id 


a CD 


iMask out 
= &x'3f", Reserved field 
one aiiee SA ect field declaration 
WRD1, ERR ~B1TI = 1, ‘Error bit 
WRD IW 


a. WRIJ= 'Diag wrap around 
WRD1, SiW_CRI NGJ= $ ND_SIZ, inumber of Send-ring slots *pwrs of 2° 
WRD1, Siw RRINGI= REC 512, iNumber of Receive-ring slots ‘pwrs of 2° 
WRD1, SiW_IEJ=_0, ‘Init Sequence interrupt request 
WRD1, S1W_VADRJ= "40°33", 'Interrupt vector address 


two read SA register field declaration 


ERR_BIT] = 0, 
SR FIELD) 0 %b°0010', 
S2R- eairas 'Echoed om step one write 
2 S2R_WRI= $ om step one write 
S2R- CRINGJ= from step one write 
WRDO, SOR “RRINGJ= from step one write 
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CZRCH2 CZRCH RC25 DISK FORMATTER 11-Jul-1983 16:05: VAX-11 Bliss-16 V3-555 10 
REV A PATCH 00 GLOBAL DATA SECTION 7-Jul-1983 08:21: 3 SPIDERSUSERS: CNEALE. AZTECICZRCH2.B16;2 7 


' 
: Step two write SA register field declaration 


CBLKI, WRD1, S2W_LRBASEJ= RINGBASE, 'Ring base lower address 


! NOTE: 

! The adapter purge interrupt is loaded within 

! the bgoninit code due to the inability to field 

! select bits <1, 15, 0> A ae the ringbase adrs. 

! CBLK1, WRD1, Sou. Pij= 0, ‘Adapter purge interrupt request 


three read SA register field declaration 


ERR_BIT] = 0. ‘Error bit 

STP_ “FieLp3 = %b°0100°, ALL “step ‘hit fields 
Soho vDJ= Yo jo 'Reserve 
S3R “tt = 0, iechoed IE bit from step one write 
S3R_ VADRI= "%0'33', 'Echoed VADR from step one write 


write SA register field declaration 


32 


acadadaaa 
SNS 


co 
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S3W_PPJ= 0 ‘Purge & Poll test request 
S3W_HRBASEJ= 0, ‘Ring base high address 


four read SA register field declaration 


WRDO, ERR_BIT] = 0, ‘Error bit 

WRDO, STP_ FIELD = Fy, 1000". 'ALL step bit fieids 
WRDO, S4R_RSVDJ= %0'7 ‘Reserved 

WRDO, S4R R-NOD] = %x' ft": 'Mask it out 

WRDO, S4R_VER] = tx'f'. 'Mask it out 


four write SA register field declaration 


CBLK3, WRD1, S4W_RSVDJ= %0°377', 'Reserved 

CBLK3, WRD1 i BURSTIJ= 0, 'Max number longwords per NPR xfer 
CBLK3, WRD1, S4W_LFJ= 0, ‘Last fail request 

(BLK3, WRD1, ine GOJ= 0); 
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CZRCH RC25_DISK FORMATTER 


GLOBAL TEXT SECTION 


L 6 


11-Jul- 


a 76 
1983 46:09:07 VAX-11 Bliss-16 V3-555 
7-Jul-1983 08:21:37 


SPIDERSUSERS: INEALE AZTECICZRCH2.B16;2 %s) 


Rsbttl "GLOBAL TEXT SECTION’ 


The global text section contains format statements, 
i messages, and ASCII information that are used in 


i all modules. 


global bind 
: Self-detected fatal 
PFE_STRUCT = 


SSSESESSSSSSSESSSSSSSSESS 
ORR RRR RR RR RR Orr 
ae ae me ads mig ms men male mee be ms hy ey ae dy ay maa mae ds ey a ads do 
eer Arerrr eR rere ere eee ete et et 


!<BLF /PAGE> 


port/controller errors 


(%asc iz" ZNZASFTLERR= UNRECOGNIZABLE ERROR CODE'), 
(Zasc iz’ %N%ASFTLERR= ENVELOPE/PACKET READ (PARITY OR TIMEOUT)"), 
(Zasciz*ZNZASFTLERR= ENVELOPE/PACKET WRITE (PARITY OR TIMEOUT)", 
(Zasciz" ZNZA$FTLERR= CONTROLLER ROM AND RAM PARITY’), 
(Zasciz'ZNZASFTLERR= CONTROLLER RAM PARITY}. 
(Zasc iz" ZNZASFTLERR= CONTROLLER ROM PARITY® 
(dase iz" ENEASE LEM RING READ (PARITY OR TIMEOUT) ") 
(%asciz" ZNZASFTLERR= RING WRITE (PARITY OR TIMEOUT)'S, 
(Zasciz*ZNZASFTLERR- INTERR were 
(Zasc iz’ ZNZASFTLERR= HOST ACCESS T out’) 
(Zasciz"ZNZASFTLERR= CREDIT LIMIT EXCEEDED!) 
(%asc iz" ZNZASF TLERR- BUS MASTER ERROR’ 
TLERR= DIAGNOSTIC CONTROLLER FATAL ERROR"), 
INSTRUCTION LOOP TI 
NVALID CONNECTION IDENTIFIER*), 

(Zasc iz*ZNZASFT WRITE'), 


LERR- INTERRUPT 
(Zasciz’ INEASFTLERR RAINTENANCE READ/WRITE INVALID REGION IDENTIFIER*) 
TLERR= MAINTENANCE WRITE LOAD TO NON-LOADABLE 


CONTROLLER’), 
CONTROLLER RAM ERROR (NON=PARITY)"), 
INIT SEQUENCE ERROR), 
HIGH LEVEL PROTOCOL INCOMPATIBILITY ERROR"), 
PURGE/POLL HARDWARE FAILURE °), 
(%asc iz" ZNZASFTLERR= MAPPING REGISTER READ RoR (PARITY OR TIMEOUT") 
: vector 
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CZRCH2 Bt 46:05:07 VAX-11 Bliss-16 V3-555 
REV A PATCH 00 GLOBAL TEXT SECTION 7-Jul-1983 08:21:37 


$PIDERSUSERS: CNEALE .AZTECICZRCH2. B16:3 (9) 
4 


Error message structure 


EMsc_ STRUCT = tke ‘ 
(Zasc iz* ZNZASFTLERR= RESPONSE thee te ERROR :%S") , 
(Rascis" ENTASFILERR= HOST/CONTROLLER OUT OF SEQ f), 
rj FT otal PROG ) 


NOT NG* 
NOWN RETURN STATUS CODE"), 
RROR') 


BHSSSSOOOae 
MAVIVMIVIVMIVIVIVIV 


NDCODE R RECEIVED". 
€ RROR'?, 


TLERR NOWN INTERRUPT 
(Zasciz’ ZNZASFTLERR=- INIT SEQ STEP UTED “ouT'), 
(Zasc iz* ZNZASFTLERR~ INIT SEQ COMPARE ERROR’), 
(hascie’ ZNZASFTLERR= UNEXPECTED ATTENTION END * MESSAGE RECEIVED"), 
(Zasciz*ZNZASFTLERR= UNEXPECTED COMMAND OPCODE IN END MESSAGE RECEIVED"). 
(Zasciz"ZNZASFTLERR= UNEXPECTED SERIOUS EXCEPTION END ashe RECEIVED") 
(Zasci2' a pe INVALID COMMAND END MESSAGE RECEI VED") 
(Zasciz’ ZNZASFT - UNKNOWN MESSAGE TYPE RECEIVED’ ), 
(Zasciz‘ eNEASE YLERRS OUTSTANDING COMMAND BUFFER FULL’), 
| peed Hap AL OUT STANDING COMMAND BUFFER OUT oF SYNC ERROR’), 
(Zasciz’ ZNZASFTLERR= UNKNOWN MESSAGE NUMBER RECEIVED') 
(Zasciz2' INIASETLERR@ FILE READ ERROR‘), 
(Zasciz*ZNZASFTLERR= PORT/CONTROLLER TIMEOUT ERROR*), 
Bes Seceea eA mee ILLEGAL FCT FILE LENGTH')) : vector (23), 
page> 


© Oe Be Ge Se Oe BO Ge Os 08 0808 09809 G0 D8 
WHO VDONOUFSWN—OoO”O 


Seesey 
SSSSESSSSSSESSESSSSSESSSS 





CZRCH2 
REV A PATCH 00 


1877 
1878 
1879 
1880 
1881 


a 

Seesesee 

OONAUSE WI 
SSSSSSSESS 


3 


me ak ek ad ad td ed 
co 
oO 
por 


0000 
Oo 
wr 


a 
SSSes 
Besse 


PEEREEEREEE: 


3 SS SS Ss SS OS SS oe SS 


WOOOOOOOOOO0O0ND 


MON @ 2S So 
—SOVODONOUSW—OVOOnN 


N 6 


11-Jul=- 


CZRCH RC25 DISK FORMATTER 198 
7-Jul-198 


3 16: 
GLOBAL TEXT SECTION 3 08: 
i] 
; Self-detected fatal port/controller errors 


RC_STRUCTURE = uplit ¢ 
t Thasc 12° ZNZASF 


c 


(Zasc iz’ ZNZASFTLERR= 
(Lose te SNEASET LERR=- 
(%asciz' ZNZASFTLERR= 
(Zasc 12" ZNZASFTLERR~ 


FTLERR= VAX mittee east INTERRUPT"), 


U.ALOC’), 
INCONSISTENCY AT SERVO ENTRY (PIP SET)"), 
INCONSISTENCY AT ght gy (ERR SET)"), 


(Zasciz* ZNZASFTLERR= I 


(%asciz* ZNZA$SFTLERR- 


(Zasc 12° ZNZASFTLERR~ IL 


(%asciz* ZNZASFTLERR=- 
(Zasc iz" SNZASFTLERR~ 
(Zasciz’ INZASFTLERR- 
feed eh ap oA 


(Zasciz* ZNZASFTLERR- 
(Zasc iz" ZNZASFTLERR- 
(Zasc iz* ZNZASFTLERR= 
(Zasc iz* ZNZASFTLERR= 
(Zasc iz* ZNZA$F TLERR- 


-OPCD F IL 
D.CSF FOUND ILLEGAL OPCODE' ¥ 
UNKNOWN BAD DRIVE STATUS AT b.psTS"), 
ILLEGAL XFC EXECUTED BY DM"), 
D PICKED UP A ZERO SCB.DB"), 
INCONSISTENCY AT D IDLE LOOP"), 
DM WORD COUNT ERROR ON HOST DMA/SEND/RECV"), 
AT D ate), 


e 


TIMED 
U. SEND/U.RECV RING” + eaconeisrence® ), 
UNKNOWN WAITRV REASON A RVCT'), 

D.ARCS DID NOT Ay CLOsesi UNDONE ZONE"), 


(%asciz* ZNZASFTLERR= U. 


(%asciz* ZNZASFTLERR- 
(%asciz' %NZASFTLERR=- 
(%asc iz’ ZNZASFTLERR=- 


U.HTST INIT DIAG DMA LED"), 
U.SYDR FOUND SS.DER SET AND SPN NOT SET"), 
MASTER DRIVES ACLO ASSERTED’) 


) : vector (39), 


!<bl f/page> 


St 78 
VAX=-11 Bliss=-16 V3-555 13 
SPIDERSUSERS: CNEALE .AZTECICZRCH2. B16,3° 110) 





8 7 


CZRCH2 CZRCH RC25_DISK_FORMATTER 11-Jul-1983 16:05:07 
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; Dup return status codes 


Spup_ STRUCT = uplit 
(Zasciz'ZA SUPCESSFULIN') 


VALID COMMANDZN*) 

ZANO REGION AVAILABLESN'), 
(Zasciz*ZANO REGION SUITABLEZN'), 
(%asciz*ZAPROGRAM NOT K ZN'), 
(Zasciz*ZALOAD FAILURERN' 
(%asc iz’ ZASTANDALONEZN’ ) 

) : vector (7), 
bdddectd 
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' 
4 . MSCP return status codes 


éMscP_ STRUCT = uplit 
(Zasc iz’ ZASUCC SSEN'), 
(Zasciz*ZAINVALID CONMANDIN 


Sess 


(Zasciz*ZADATA ERRORZN‘ 

(Zasciz"ZAHOST BUFFER “access ERROREN') 

freed Pt pb ERRORZN*) 

(Zasciz"ZADRIVE ERRORZN'), 
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08:21:37 SPIDERSUSERS: CNEALE. AZTECICZRCH2.B16. 3° 13) 
Init code error and informational messages 


DATA = mits s us Chega ts Barer DATE <MM-DD-YYYY> "), 
Lit (Zasciz'ZNZANO ADDITIONAL UNITS TO FORMAT = ABORTING'), 
PUR “Re = = uplit “(hase 12" ENEASF TLERR- INIT CODE RE-ENTERED DUE TO PWR FAIL"), 
ABO" mites (Zasc iz" 3NZASFTLERR- oy 3 = he NG HOST AND REMOTE PROGRAMS’), 
TO AANY UNI uplit (tase iz SNZASFTL LERR= ILLEGAL NUMBER OF UNITS SELECTED"), 
G UNITS = uplit. (Zasciz*ZNZASFTLERR- LIMIT OF SIXTEEN UNITS PER FORMATING SESSION’), 
B00 ~FAICURE = uplit (Zasciz*ZNZASFTLERR= RC25 CONTROLLER INITIALIZATION ERROR*) 
PROTO. VIOLATION = uplit seee he Faen rhe - PROTOCOL VIOLATION ERROR"), 
PORT INIT ERR = uplit ( (Zasciz*ZNZASFTLERR= COMMUNICATION AREA INIT ERROR"), 
active “DUB. SERVER = uplit (Zasciz' IVEASFTLERR- OUP SERVER ACTIVE AFTER INITIALIZING"), 
NACTIVE_DUP_SERVER = uplit (Zasciz'ZNZASFTLERR= DUP SERVER INACTIVE AFTER EX_SUP_ PROG COMMAND"), 


i : Local load media DM module file name.ext 


ip. FNSEXT = UPLIT (ZASCIZ*AZFMTR.SAV"), 
FCT_-REQ_MSG = uplit (Zasciz'ENTER FCT FILE NAME TO RESTORE (FILENAME.EXT): °), 


Hardware parameter coding questions 

HW_Q1_IP = uplit (Zasciz*RC25 IP REGISTER ADDRESS‘) 
VECTOR = uplit (%asciz'RC25 INTERRUPT VECTOR ADDRESS* ), 

HW_Q3_BR = uplit (Zasciz'RC25 BUS REQUEST LEVEL"), 

Hid "Q4"UNIT = uplit (Zasciz"UNIT NUMBER TO BRING ONLINE*), 


Software parameter coding questions 


Su 1_UNATT = uplit (%asciz*FORMAT IN UNATTENDED REFORMAT MODE"), 

SW rag NOTICE = uplit (Zasciz* ZNZAetexaerearareraneaxaeer NOTICE teketeeeeeneeeeeeeene’), 
OPER = _uplit (Zasciz'ZNZA OPERATOR MUST BE PRESENT IN ATTENDED MODE *},, 

Su he _UNATT = uplit (Zasciz*ZNZA RUNNING IN UN@ATTENDED REFORMAT MODE‘); 
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SEQ 85 
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000501 117 122 115 ASCII /ORM/ 
000504 101 124 124 eASCII /ATT/ 
000507 111 116 107 ASCII /ING/ 
000512 040 120 110 ASCII / PH/ 
000515 131 123 111 ASCII /YSI/ 
000520 103 101 114 ASCII /CAL/ 
000523 040 125 116 ASCII UN/ 
000526 111 124 040 eASCII /1T / 
000531 045 104 062 eASCII /202/ 
0005 045 101 050 eASCII = /2AC/ 
000537 104 051 045 ASCII /D)%/ 
000542 116 000 ASCII /N/<00> 
000544 045 116 045 P.AAH: .ASCII /2N%/ 
000547 101 106 117 ASCII /AFO/ 
000552 122 115 101 ASCII 
000555 124 124 105 eASCII = /TTE/ 
0005: 122 040 120 ASCII /R P/ 
000563 122 117 107 ASCII /ROG/ 
0005 122 105 123 ASCII /RES/ 
000571 123 $71 116 ASCII /SIN/ 
000574 107 072 040 eASCII /G: / 
000577 040 120 111 ASCII / PI/ 
000602 104 040 110 ASCII /D H/ 
000605 111 075 045 ASCII /1=%/ 
000610 117 066 045 ASCII /06%/ 
000613 101 050 117 eASCII /A(0/ 
000616 051 045 123 eASCII /)2S/ 
000621 045 123 045 ASCII /2S%/ 
000624 101 120 111 eASCII /API/ 
000627 104 040 114 eASCII /D L/ 
000632 117 075 045 ASCII /0=%/ 
000635 117 066 045 eASCII /06%/ 
000640 101 050 117 ASCII /A(O/ 
000643 051 000 000 ASCII /)/<00><00> 
000646 045 116 000 P.AAI: .ASCII /%N/<00> 
000651 000 ASCII <00> 
000652 045 116 045 P.AAJ: .ASCII /2N%/ 
000655 116 045 116 ASCII = /NIZN/ 
000660 045 116 045 eASCII = /2N%/ 
000663 116 045 116 eASCII /NEN/ 
000666 045 116 045 eASCII /2N%/ 
000671 116 000 000 ASCII /N/<00><00> 
000674 045 116 045 P.AAL: .ASCI] /2N%/ 
000677 101 044 106 ASCII /ASF/ 
000702 124 114 105 eASCII /TLE/ 
000705 122 122 055 ASCII /RR-/ 
000710 040 125 116 ASCII 
000713 122 105 103 ASCII /REC/ 
000716 117 107 116 ASCII /OGN/ 
00072 111 132 101 eASCII /IZA/ 
000724 102 114 105 eASCII /BLE/ 
000727 040 105 122 ASCII / ER/ 
000732 122 117 122 ASCII /ROR/ 
000735 040 103 117 ASCII / CO/ 
000740 104 105 000 ASCII /DE/<00> 
000743 000 ASCII <00> 
000744 045 116 045 P.AAM: .ASCII /2ZN%/ 
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SEQ 89 
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001742 125 103 124 eASCII = /UCT/ 

001745 111 117 116 eASCII = /ION/ 

001750 040 114 117 ASCII / LO/ 

001753 117 120 040 eASCII = /0P / 

001756 124 111 115 eASCII = /TIM/ 

001761 105 117 125 eASCII /EOU/ 

1764 124 000 eASCII /T/<00> 
001766 045 116 045 P.AAZ: .ASCII /2N%/ 
001771 101 044 106 eASCII = /ASF/ 

1774 124 114 105 eASCII /TLE/ 
001777 122 122 055 eASCII = /RR-/ 

2002 040 111 116 eASCII / IN/ 
002005 126 101 114 eASCII /VAL/ 
002010 111 104 040 eASCII /1D / 
002013 103 117 116 eASCII /CON/ 
002016 116 105 103 eASCII = /NEC/ 
002021 124 111 117 eASCII = /TIO/ 
002024 116 040 111 ASCII /NI/ 
002027 104 105 116 eASCII = /DEN/ 
002032 124 111 106 eASCII /TIF/ 
002035 111 105 122 eASCII = /IER/ 

2040 000 000 eASCII <00><00> 
002042 045 116 045 P.ABA: .ASCII /2N2/ 

2045 101 044 106 eASCII = /ASF/ 
002050 124 114 105 eASCII /TLE/ 
002053 122 122 055 eASCII = /RR=-/ 
002056 040 111 116 eASCII /_IN/ 
002061 124 105 122 eASCII = /TER/ 
002064 122 125 120 eASCII /RUP/ 

2067 124 040 127 eASCII /T W/ 
002072 122 111 124 eASCII = /RIT/ 
002075 105 000 000 eASCII /E/<00><00> 
002100 045 116 045 P.ABB: .ASCII /2N2/ 
002103 101 044 106 eASCII /ASF/ 
002106 124 114 105 eASCII /TLE/ 
002111 122 122 055 eASCII = /RR-/ 
002114 040 115 101 eASCII / MA/ 
002117 111 116 124 eASCII /INT/ 
002122 105 116 101 eASCII = /ENA/ 
002125 116 103 105 eASCII /NCE/ 

21 040 122 105 eASCII / RE/ 
002133 101 104 057 eASCII = /AD/<57> 
21 127 122 111 eASCII = /WRI/ 
002141 124 105 040 eASCII /TE / 
002144 111 116 126 eASCII = /INV/ 
002147 101 114 111 eASCII /ALI/ 
002152 104 040 122 eASCII /D R/ 
002155 105 107 111 eASCII = /EGI/ 

21 117 116 040 eASCII /ON / 
002163 111 104 105 eASCII /IDE/ 

21 116 124 111 eASCII = /NTI/ 
002171 106 111 105 eASCII = /FIE/ 
002174 122 000 eASCII = /R/<00> 
002176 045 116 045 P.ABC: .ASCII /2N%/ 
002201 101 044 106 eASCII /ASF/ 

2204 124 114 105 eASCII = /TLE/ 
002207 122 122 055 eASCII = /RR-/ 
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003152 125 122 116 eASCII = /URN/ 
003155 040 123 124 eASCII / ST/ 
003160 101 124 125 eASCII = /ATU/ 
003163 123 040 103 ASCII /S C/ 
003166 117 104 105 eASCII /ODE/ 
003171 000 eASCII <00> 
003172 045 116 045 P.ABN: .ASCII /2N2%/ 
003175 101 044 106 eASCII = /ASF/ 
32 124 114 105 eASCII /TLE/ 
003203 122 122 055 eASCII /RR=/ 
0032 040 103 117 ASCII / CO/ 
003211 115 040 101 eASCII = /M_A/ 
003214 122 105 101 eASCII =/REA/ 
003217 040 111 116 eASCII / IN/ 
003222 111 124 040 ASCII /IT / 
003225 105 122 122 eASCII = /ERR/ 
003230 117 122 000 eASCII /0R/<00> 
003233 000 eASCII <00> 
003234 045 116 045 P.ABO: .ASCII /%N%/ 
003237 101 044 106 eASCII = /ASF/ 
003242 124 114 105 eASCII = /TLE/ 
003245 122 122 055 eASCII = /RR-/ 
003250 040 120 117 ASCII PO/ 
003253 122 124 057 eASCII = /RT/<57> 
003256 110 117 123 eASCII = /HOS/ 
003261 124 040 123 eASCII /T S/ 
3264 131 116 103 eASCII /YNC/ 
3267 040 105 122 eASCII / ER/ 
003272 122 117 122 eASCII = /ROR/ 
003275 000 eASCII <00> 
003276 045 116 045 P.ABP: .ASCII /2NZ/ 
003301 101 044 106 eASCII = /ASF/ 
3304 124 114 105 eASCII /TLE/ 
330 122 122 055 eASCII = /RR-/ 
003312 040 115 105 eASCII / ME/ 
003315 123 123 101 eASCII = /SSA/ 
003320 107 105 040 eASCII /GE / 
003323 114 105 116 eASCII = /LEN/ 
003326 107 124 110 eASCII = /GTH/ 
003331 040 105 122 eASCII / ER/ 
3334 122 117 122 eASCII = /ROR/ 
003337 000 ASCII <00> 
3340 045 116 045 P.ABQ: .ASCII /2N%/ 
003343 101 044 106 eASCII /ASF/ 
003346 124 114 105 eASCII = /TLE/ 
003351 122 122 055 eASCII = /RR=-/ 
003354 040 125 116 eASCII / UN/ 
003357 113 116 117 eASCII /KNO/ 
3362 127 116 040 eASCII = /WN / 
003365 105 116 104 eASCII = /END/ 
003370 103 117 104 eASCII = /COD/ 
003375 105 040 122 eASCII /E R/ 
003376 105 103 105 eASCII = /ECE/ 
3401 111 126 105 eASCII = /IVE/ 
3404 104 000 eASCII = /D/<00> 
3406 045 116 045 P.ABR: .ASCII /2N%/ 
003411 101 044 106 eASCII = /ASF/ 
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004400 125 124 040 eASCII /UT / 
004403 117 106 040 ASCII /OF / 
004406 123 131 116 ASCII = /SYN/ 
004411 103 040 105 ASCII /C E/ 
004414 122 122 117 eASCII /RRO/ 
004417 122 000 000 eASCII /R/<00><00> 
004422 045 116 045 P.ACC: .ASCII /2N%/ 
004425 101 044 106 ASCII /ASF/ 
004430 124 114 105 ASCII /TLE/ 
004433 122 122 055 ASCII /RR-/ 
0044 040 125 116 ASCII / UN/ 
004441 113 116 117 ASCII /KNO/ 
004444 127 116 040 ASCII /WN / 
004447 115 105 123 eASCII /MES/ 
004452 123 101 107 ASCII /SAG/ 
004455 105 040 116 ASCII /E N/ 
004460 125 115 102 ASCII /UMB/ 
004463 105 122 040 eASCII /ER / 
004466 122 105 103 ASCII /REC/ 
004471 105 111 126 ASCII /EIV/ 
004474 105 104 000 ASCII /ED/<00> 
004477 000 ASCII <00> 
004500 045 116 045 P.ACD: .ASCII /ZN%/ 
004503 101 044 106 eASCII /ASF/ 
004506 124 114 105 eASCII /TLE/ 
004511 122 122 055 ASCII /RR-/ 
004514 040 106 111 eASCII / FI/ 
004517 114 105 040 eASCII /LE / 
004522 122 105 101 eASCII /REA/ 
004525 104 040 105 ASCII /D E/ 
004530 122 122 117 eASCII /RRO/ 
004533 122 000 000 ASCII /R/<00><00> 
004536 045 116 045 P.ACE: .ASCII /2N%/ 
004541 101 044 106 ASCII /ASF/ 
004544 124 114 105 eASCII /TLE/ 
004547 122 122 055 eASCII = /RR-/ 
004552 040 120 117 ASCII PO0/ 
004555 122 124 057 ASCII /RT/<57> 
004560 103 117 116 eASCII /CON/ 
004563 124 122 117 eASCII /TRO/ 
004566 114 114 105 ASCII /LLE/ 
004571 122 040 124 eASCII /R T/ 
004574 111 115 105 ASCII /IME/ 
004577 117 125 124 eASCII /OUT/ 
004602 040 105 122 eASCII / ER/ 
004605 122 117 122 eASCII /ROR/ 
004610 000 000 eASCII <00><00> 
004612 045 116 045 P.ACF: .ASCII /2N%/ 
004615 101 044 106 ASCII /ASF/ 
004620 124 114 105 ASCII /TLE/ 
004623 122 122 055 ASCII /RR-/ 
004626 040 111 114 ASCII IL/ 
004631 114 105 107 ASCII /LEG/ 
004634 101 114 040 ASCII /AL / 
004637 106 103 124 ASCII /FCT/ 
004642 040 106 111 eASCII / FI/ 
004645 114 105 040 eASCII /LE / 
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5 124 114 105 eASCII /TLE/ 
005611 122 122 055 eASCII /RR-/ 
005614 040 111 114 ASCII / IL/ 
005617 114 105 107 eASCII /LEG/ 
5622 101 114 040 eASCII /AL / 
5625 104 040 122 eASCII /D R/ 
005630 105 121 125 eASCII /EQU/ 
005633 105 123 124 eASCII /EST/ 
005636 040 050 125 eASCII / (U/ 
005641 056 121 104 eASCII = /.QD/ 
005644 122 121 051 eASCII = /RQ)/ 
005647 000 eASCII <00> 
005650 045 116 045 P.ACS: .ASCII /2NZ/ 
005653 101 044 106 eASCII = /ASF/ 
005656 124 114 105 eASCII /TLE/ 
005661 122 122 055 eASCII /RR=-/ 
005664 040 106 105 eASCII / FE/ 
005667 116 103 105 eASCII /NCE/ 
005672 055 120 117 eASCII /=PO/ 
5675 123 124 040 ASCII /ST / 
005700 105 122 122 eASCII = /ERR/ 
005703 117 122 040 eASCII /OR / 
5706 101 124 040 eASCII /AT / 
005711 120 122 117 eASCII /PRO/ 
005714 124 101 102 eASCII = /TAB/ 
005717 000 eASCII <00> 
005720 045 116 045 P.ACT: .ASCII /2N%/ 
005723 101 044 106 eASCII /ASF/ 
005726 124 114 105 eASCII /TLE/ 
5731 122 122 055 eASCII /RR=-/ 
005734 040 102 101 ASCII / BA/ 
5737 104 040 120 ASCII /D P/ 
005742 101 103 113 eASCII = /ACK, 
005745 105 124 040 ASCII /Ei / 
005750 104 105 121 eASCII /DEQ/ 
005753 125 105 125 eASCII = /UEU/ 
005756 105 104 040 ASCII /ED / 
005761 101 124 040 eASCII /AT / 
005764 125 056 104 eASCII /U.D/ 
005767 117 116 105 eASCII /ONE/ 
005772 000 000 eASCII <00><00> 
005774 045 116 045 P.ACU: .ASCiI /2N2/ 
005777 101 044 106 eASCII = /ASF/ 
006002 124 114 105 eASCII /TLE/ 
006005 122 122 055 eASCII = /RR=-/ 
006010 040 125 116 eASCII /_UN/ 
006013 105 130 120 eASCII = /EXP/ 
006016 114 101 111 eASCII /LAI/ 
006021 116 105 104 eASCII = /NED/ 
006024 040 104 055 ASCII D-/ 
006027 120 122 117 eASCII = /PRO/ 
006032 103 040 123 eASCII /C S/ 
006035 125 123 120 eASCII = /USP/ 
00604 105 116 123 eASCII = /ENS/ 
006043 111 117 116 eASCII = /I0N/ 
006046 040 050 125 eASCII / (U/ 
006051 056 056 124 ASCII /..T/ 
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SEQ 109 
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010260 006322' WORD P.ACZ 
010262 006374° WORD P. 
010264 006444° WORD P.A 
010266 006524° WORD P. 
010270 006574" WORD = P.AD 
010272 006644 WORD P.ADE 
010274 006716' WORD P.AD 
010276 007006' WORD P. 
300 007070' WORD P.ADH 
010302 007150" WORD P.ADI 
007224° WORD P.ADJ 
007 WORD P.ADK 
010310 007342" WORD P.ADL 
010312 007400" WORD P. 
010314 007464 eWORD P.ADN 
010316 007542° WORD P.ADO 
10320 007630° WORD P.ADP 
010322 007710" WORD P.ADQ 
010324 007770" WORD P.ADR 
010326 010052° WORD P.ADS 
0330 010142° WORD P.ADT 
0332 045 101 040 P.ADV: .ASCII /2A / 
010335 123 125 103 eASCII = /SUC/ 
0340 103 105 123 eASCII = /CES/ 
010343 123 106 125 eASCII = /SFU/ 
10346 114 045 116 eASCII = /L3N/ 
010351 000 eASCII <00> 
010352 045 101 111 P.ADW: .ASCII /2ZAI/ 
010355 116 126 101 eASCII = /NVA/ 
10360 114 114 104 eASCII = /LID/ 
010363 040 103 117 eASCII / CO/ 
10366 115 115 101 eASCII =/MMA/ 
10371 116 104 045 eASCII = /ND2/ 
010374 116 000 eASCII /N/<00> 
010376 045 101 116 P.ADX: .ASCII /ZAN/ 
010401 117 040 122 eASCII /0 R/ 
010404 105 107 111 eASCII /EGI/ 
010407 117 116 040 sASCII /ON / 
010412 101 126 101 eASCII = /AVA/ 
010415 114 114 101 eASCII = /ILA/ 
010420 102 114 105 eASCII = /BLE/ 
010423 045 116 000 eASCII = /2N/<00> 
010426 045 101 116 P.ADY: .ASCII /2AN/ 
010431 117 040 122 eASCII /0 R/ 
010434 105 107 171 eASCII = /EGI/ 
010437 117 116 040 eASCII /ON / 
010442 123 125 111 eASCII = /SUI/ 
010445 124 101 102 eASCII = /TAB/ 
010450 114 105 045 eASCII = /LEZ/ 
010453 116 000 000 -ASCII = /N/<00><00> 
010456 045 101 120 P.ADZ: .ASCII /ZAP/ 
010461 122 117 107 eASCII = /ROG/ 
010464 122 101 115 eASCII = /RAM/ 
010467 040 116 117 eASCII /_NO/ 
010472 124 040 113 eASCII /T K/ 
010475 116 117 127 eASCII = /NOW/ 
010500 116 045 116 eASCII = /NZN/ 
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000000 2: 


24 
000050 


.BLKW 
060052 RECEIVE.RING: : 
000054 SEND.RING: : 

-BLKW 
000056 REC. ENVELOPE :: 
000456 SND.ENVELOPE:: : 
000736 FCT.BUF:: 

BLK 
001736 REC.BUF:: 
~BLKW 
002316 SND .BUF : : 
002430 OUTSSTD.BUF :: 

~BLKW 
002450 RET.ENSAD: : 
002452 DATETXT:: 


-BLK 
002466 FLG.WRD:: 
-BLKW 
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002470 NEX.FLAG: : 


-BLKW 
002472 OVSA:: .BLKW 
002474 NXT.CRN:: 


-EVEN 
002476 RET.STATUS:: 

. WORD 
002500 LUN: : -BLKY 
002502 PID. SAVE: : 
002506 NSD.SLOT:: 
002510 NRD.SLOT:: 

-BLKW 
002512 RC25.ADDR: : 
002514 


002516 


0 
1 
2 
1 
1 
1 
1 
1 
1 
1 
} 
340 


LSSOFT, TSPTHV. LSRPT, LSINIT 
LS$CLEAN, LS$LAST, L$HARD, L$DVTYP 
L$DESC, Lspu. st Sabe L$AUTO, T1 


LSERRTBL== ERRT 
L$SW== LSSuLeNe2 
LSHWLEN+ 
LSREV+1 
LSHWLEN2 
LSSWLEN+ 
P.AAA 
P.AAB 

AAC 





C 10 


¥ 119 
Z RCH RC25_DISK_FORMATTER 11-Jul-1983 16:05:07 VAX=11 Bliss-16 V3-555 54 
REV A-PATCH 00 GLOBAL ExT SECTION 7-Jul=-1983 08: 3339 SPIDERSUSERS: (NEALE AZ TECICZRCH2.B16; 3 9013) 


FMT6== 
FMT7== 
PID. FMT== 
CRLF== ° 
XCRLF== P.AAJ 
RINGBASE== COM. AREA+10 
SGADR== REC .BUF +2 
PFE.STRUCT== P.AAK 
EMSG.STRUCT== 
RC. STRUCTURE== 
SDUP.STRUCT== 
SMSCP.STRUCT== 
DATMSG== 
NO.ADD. UNITS== 
PWR .MSG== 


ABO.MSG== 
TO.MANY .UNITS== 


INACTIVE.DUP. ia 
FCT.REQ.MSG== 
[P== 


2 SS SLISSSSSSsSssssss 
~N ™m 


0 
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0 
0 
0 
0 
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0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


SW.Q4.UNATT== 


PSECT SUMMARY 
Words Attributes 
59 RO, I REL, CON 


694 RO, D REL, CON 
2823 RO, D , GBL, REL, CON 


LIBRARY STATISTICS 


Symbols -o------ Blocks 
File Total ipaded Percent Read 


SPIDERSUSERS: (NEALE .AZTECICZRCHO.L16;5 


398 176 G4 42 
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CZRCH2 CZRCH RC25_DISK_FORMATTER 
REV A PATCH 00 GLOBAL TEXT SECTION 


COMMAND QUALIFIERS 
BLISS /PDPI1/LIST CZRCH2.B16 
0 code + Pr data words 
00:24.0 
09:35.7 


: 209 pages 
; Soeetlakten Complete’ 


AX-11 Bliss=-16 V3-555 
$PIDERSUSERS: : (NEALE .AZTECICZRCH2.816; 
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MODULE CZRCH3 (TITLE "CZRCH RC25 DISK FORMATTER® 
DENT = "REV 00° 
ADDRESSING MODE (RELATIVE) , 
ENVIRONMENT (NOEIS) 

BEGIN 

Zsbttl "MODULE DECLARATIONS’ 

; Pretty Declarations 

t <BLF /LOWERCASE_KEY> 


library ‘CZRCHO'; ‘Define RC25 Library module 
require ‘BLSMAC.REQ'; 'Define Bliss Macro Library 


1+ 
: Structure declarations used within this module. 


par Pong 
OUSWN—OOoOnN 


SRV 


structure 


'¢ 

! RC25 register accessing structure. This 

! structure allows RC25 register accessing 

! to be transportable between the PDP-11 and 
! VAX Diagnostic Supervisors. 


i This also defines an access algorithm for 
! VAX to allow field reference to address 
i space without generating machine checks. 


rC25 (CO, P, S, EJ = 
begin 


FWN OC OOBNAULSWN Oo 


local 
RC$S_REG; 


RC$S_REG = .(RC25 + Zupval*0)<0, %bpval, 0>; 
RCS$S_REG 


en 
<P, S, E>: 
'<bl f/page> 


NORIPONOPORINO PONY et ts tt a 


OOONAW 


PUPP PUSS 


FAGSS 
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' e 

i The psect named “code or $codeS"’ is redefinded here 
4 called ‘‘aa$code’’. This is done to force the tkb 
! Linker to place the programs header information starting 
: at absolute address 2000. Then for consistenc *‘aScode’’ 
' is used inplace of ‘code or $code’’ across all modules. 
psect 

code = aa$code; 


~~ 122 


555 
224:19 SPIDERSUSERS: [NEALE -AZTECICZRCH3.B16: 3 2) 


=) 


Lat) 


VAAN 
Few 


WN SO DONOUESWN $0 O@n~ 


'¢ 
i | seat Routine declared outside this module. 


FREE 


external routine 
: novalue, 
LOAD_FILE; 


!<bl f/page> 


bs ed ot SH 1 =z 
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CZRCH_RC25 DISK FORMATTER 
MODULE DECLARATIONS 
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e: 44 VAX-11 Bliss-16 V3-555 


1983 1 
7=Jul-1983 08: 19 SPIDERSUSERS: CNEALE .AZTECIJCZRCHS. 8163 9s) 


'¢ 
: External Declaration of datums declared outside of this module. 


external 
: DM Load file from local media definitions 


ion FNSEXT, 
AZFATR : vector (8892, word], 
OVSA word, 


Hardware question ascii string messages 
Hw_Q1_IP, 

HW_Q2_VECTOR, 

HW_Q3_BR, 

HW_Q4_UNIT, 

Software question ascii string messages 
Su 1_UNATT, 

Sw -O27 “NOTICE, 

Sw 


"03-OPER 
W~Q4"-UNATT, 


: Formatting print string 
FMT2, 
FMTS, 


CRLF, 
XCRLF, 


: Init code error and informational messages 


NO_ADD_UNITS, 
ron ms. 


TO TO RANT TS, 
TO, RANY UNITS 
DATMSG, ~ 


: Miscellaneous external data declarations 


FLG_ WRD : 

LUN’: , 
PTBL “pT 

DATETXT : 

Supervisor defined data declarations 

LSUNIT, 

Hardware P_Table storage declarations 


ac25 pose : ref RC25 field (ISD_FIELD), 
VEC_ADDR : word, 


bitvector [16], 


e, 
: ref vector (4, word), 
vector (12, byte], 


'DM file name ascii text 
'DM host buffer adrs 
‘Overlay section starting adrs 


'H/W question 1 for IP reg address 

'H/W question § for interrupt vector address 
'H/W question 3 for bus req level 

'H/W question 4 for unit no. to format 


'Unattended reformat software question 
'Notice yoo 

‘Operator must be present in this mode 
!'Running in unattended mode 


‘Notifies unit being formatted 
‘Notifies format abort 
'<CR><LF> 

'Prints ten <CR><LF> 


'Message to ask operator for date 


'Global flag word 


'Storage for operator date input 


H 10 


SEO 124 
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BR_LEVEL : word, 

UNTT_NO : word, 

i Software question response storage declarations 
SW_UNATT : word, 

: Formatter data structures 

ISD_STRUCT : blockvector (4, 2, word] field (ISD_FIELD); 


Od ed nd od od = 
Rkonp asses pasate 

IN) ak a ed aed ad ed ed 
SO OONOUEWwN— 
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CZRCH3 CZRCH RC25_DISK FORMATTER 11-Jul-1983 16:05:44 VAX-11 Bliss-16 V3-555 
REV A PATCH 00 IVE AND DESCRIPTION ysuta1988 08:50:19 SPIDERSUSER $: NEALE -AZTECICZRCH3.B16; a (4) 


Rsbeul *TYPE AND DESCRIPTION' 
"Two lines of text wilt be printed to the rater (in addition to the 


ip progres name). The first will come from the “DESCRIPT’’ macro at start 
; 2. ime and will identity the diagnostics. The second will come 
i 
i 


g 


from 
*DEVTYPE’’ macro at hardware eens time and will_identify the 
device under test. The arugments of 
i ascii strings “gnc loved in parenthesises: 


DESCRIPT (Zasc iz*RC25 DISK FORMATTER‘) 
DEVIYP (Base f"AC2S DISK DRIVE SUBSYSTEM"); 


macros are 72 character 


asiagocee 


eB ae a a ud a 


AAO 
Www 
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one or 
CZRCH3 CZRCH RC25 DISK FORMATTER 11-Jul-198 is: 97:46 344 VAX-11 Bliss=16 V3=555 Page 
REV A PATCH 00 HARDWARE PARAMETER CODING 7=Jul=1985 0 SPIDERSUSERS : (NEALE AZTEC JCZRCH3.816; ts) ° 


Rsbttl "HARDWARE PARAMETER CODING’ 


!' The hardware parameter coding section contains macros 
' that are used by the supervisor to build P-Tables. The 
' macros are ae engcuted as machine netruct ions but are 
! interpreted th th . wu rvisor as data structures. The 
' macros allow the s visor to establish communications 
& with the arr. 


=" 
oa 
kad 
ww 


SOOT SS, 
abet tw 


Zo'0', 3,10 He ng : Chak YES, "i 'Get RC25 Controller IP register 
TOR, 2" 2 £1 S598 778" ES. j i iG Get RC2S Interrupt vector ad address 
e equest Prior 
eR (HW_Q4_ UNIT tors ge" D, %o° 1ppe7hee” 0” ralESs, Vi ags VES, 1); ‘Get unit a. to format 


ee ee ee ee ee 


FFFSFSESF 
NOUEWN OO 





kK 10 


SEQ 127 
CZRCH3 CZRCH RC25 DISK FORMATTER 11-Jul-1983 16:05:44 VAX-11 Bliss-16 V3=555 Pa 
REV A PATCH 00 SOFTWARE PARAMETER CODING SECTION 7=Jul-1983 08:52:19 SPIDERSUSERS: [NEALE .AZTECICZRCH3.B16; 3° (6) 


Rsbetl "SOFTWARE PARAMETER CODING SECTION’ 


! The software parameter coding section contains macros 
! that are used by the supervisor to build P-Tables. The 
' macros are not executed as machine instructions but are 
! interpreted by the supervisor as data structures. The 
' macros allow the supervisor to establish communications 
: with the operator. 


kk tk et ed 
AAAAAOSAAOO 
MVM 
WONAOULSWN oO 


BGNSFT; 
GPRML (SW_Q1_UNATT, 0, 1, YES, 1); 
ENDSFT; 





CZRCH3 
REV A PATCH 00 


ne nto 


SSSSS 
Fwn-oo 


R=R=k 
AWNO=O—N 


S 


aed eet — 
=—MmMor— 
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CZRCH_RC25 DISK FORMATTER 11-Jul-1983 1 
REPORT CODING SECTION 7=Jul=-1983 0 


eeeees "REPORT CODING SECTION’ 


! "The statistical report coding section contains the PRINTS macros that 
! will used to generate statistical reports. The "BGNRPT® and ‘ENDRPT’ 
: macros are used as_ begining and ending directives for the coding —_ 
! tained in the section. However, an externally located DORPT call, o 


Dana 128 
6:05:4 VAX-11 Bliss-16 V3-555 
8:24: SPIDERSUSERS: CNEALE .AZTECICZRCH3. B16;3° (7) 


' a print command from the operator, may be used to request the execu 
& tion of the report coding. 


BGNRPT; 
return; 


Report summary coding is remote program driven 
ENDRPT; 


CZRCH3 CZRCH RC25 DISK FORMATTER 
/REV A / 


AASCODE, RO 
2/ 


RS 
WOW 


-P 
LSDESC:: 
A 


Nm 
So==se 
M—NWEP 


1 
106 
1 
1 


Sx= 
onruw 


LSDVTYP:: 


- 
So 
Ww 
& 
™m 


do SP 
yahoo 444 

FUWAEWO 
a oo 
SWNON-o 
WM NUINIW ES 


/STE/ 
" shane 
LSHRDLN:: 


<<<LSNDHRD-LSHRDLN>/2>-1> 
GP$1:: 31 


HW.Q1.1P 
16000 

1031 

il. G2. VECTOR 
774 

2032 
W4.05.0R 

0 

? 

3052 


GP$2:: 


GP$3:: 


Mm 10 


CZRCHS CZRCH_RC25 DISK FORMATTER 11-Jul-1983 1 
REV A PATCH 00 REPORT CODING SECTION 7=Jul=1983 0 


~ Q4.UNIT 


Monae 129 
6:05: VAX-11 Bliss=16 V3=555 
8:24:1 SPIDERSUSERS : (NEALE .AZTECICZRCH3.816; 3 7) 

0000006 
aonnn 


00000 WO , 
000375 75 
LSNDHRD: : 


000000C LSSFTLN:: 
000130 GP$5:: 
0000006 

000001 


il aig age 
—-" 
LSNDSFT:: ' 


DECODE, ag oatt 
HW.Q1.1P 


AZEMTR. OVSA 
aVECTOR 


03.BR 
Unit” ute UNATE. Meu-O2" NOTICE 
PER, SW W:04-UNATT FMT2 
XCRLF, NOL ABD. UNITS 
UNIT 


VEL 
UNIT.NO, SW.UNATT, ISD.STRUCT 


000064° L$HARD== LSHRDLN+2 
000134" L$SOF T== LSSFTLNt2 


-SBTTL LRPT REPORT CODING SECTION 
000000 000207 LRPT: RTS PC 


; Routine Size: 1 word, Routine Base: AASCODE + 0144 
: Maximum stack depth per invocation: 0 words 


L$RPT REPORT CODING SECTION 
000000 004767 177772 LSRPT:: JS PC,LRPT 
000004 104425 T 
000006 PC 


z Routine Size: 4 words, Routine Base: AASCODE 
> Maximum stack depth per invocation: 2 words 
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CZRCH3 ZRCH RC25 DISK FORMATTER 11-Jul-1 VAX-11 Bliss-16 V3-555 Page 
REV A PATCH 00 GRIT TAL IZE SECTION 7-Jul-1 SPIDERSUSERS : [NEALE .AZTECICZRCH3.816;3 (8) 


1675 %sbttl “INITIALIZE SECTION' 
1676 BGNINIT; 


++ 
The initialization code is executed at the beginnin 


— 
o 
“ 
oo 


of every 
sub-pass and is primarily used for requesting P Tables. Any 
— set-up type functions may also be performed in the init 
code. 


BEEES 


The initialize code is executed under five conditions. There 
are supervisor event flags that are used to let the diagnostic 
know under which condition the execution is taking place. The 
event flags are read using the ‘‘READEF*’ macro. 


SS2S5% 


8 


corrresponding event flags are: 


START COMMAND EF .START 
EF RESTART 


ON EF. CONTINUE 
POWERDOWN/POWERUP FPWR 
NEW PASS EF .NEW 


Example of event flag use: 


if READEF(EF.START) then 
START_FLAG = 1; 


— oS Yo dd SS SS 
Nu— 


Seeee 


' 
' 
' 
' 
' 
' 
1 
i 
i 
‘ 
i 
: The conditions under which the init code is executed and the 
i 
i 
i 
i 
' 
' 
i 
i 
i 
t 
' 
! 


+ 

' First read the event flag EF_PWR to see if this init code is being 
! performed due to a system power fail. If it is then report the 
! incident to the operator and abort the DM machine and further execution 
: of this program. 


=o 


bd READEF (EF_PWR) 'Is the PWR event flag set 
en 


pein ‘Report the incident and abort 
PRINTB (PWR_MSG); ‘Power fail print message 
PRINTB (ABO_MSG); j Apert ing program message 
WRT_RC25 (RTIP, ONES); ‘Abort DM code execution ; 
DOCEN; ‘Abort further program execution 
end; 


‘ 
! See if the DRS commands START or RESTART were used to start 
! this formatting session. If either of them were used then 
: start the formatting session at logical unit zero. 


AUSWN-—OODNOUSWN OO 


4 (READEF (EF_START)) or (READEF (EF_RESTART)) !Did start of restart get us here 
en 
begin 


NONINIAININDINININID) 2 2 OO Oo 
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. 
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° 
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. 
° 
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. 
oe 
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° 
. 
e 
a 
° 
o 
e 
o 
o 
. 
Sd 
° 
° 
© 
° 
2 
° 
. 
e 
a 
° 
~ 
e 
< 
° 
7 
ce 
° 
° 
. 
° 
o 
e 
2 
e 
° 
° 
a 
° 
o 
° 
o 
ce 
. 
° 
« 
° 
o 
e 
2 
° 
a 
° 
. 
° 
. 
° 
a 
a 
2 
° 
© 
° 
” 
° 


ke ek at a 2 
NNNNN NNN NNN NSS 


—Ooon 


i Check the operater for triing to format 
! more than the defined limit. If they 


WWW 
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— 7 
DISK FORMATTER 11-Jul-1983 16:05: VAX-11 Bliss-16 V3-555 
SECTION 7=Jul=19 ; 08:24: SPIDERSUSERS: CNEALE .AZTECICZRCH3. B16;3°% fa) 


are then report the error and die. 


CZRCH3 
REV A PATC 


= 
Zn 
~ 
— 
40 
om om — T= 
ex 
——- 
mnt 
mun 


is -LSUNIT gtru LSLIMIT 'Is the formatting Limit exceeded 


GEGEN S 


& 


"be 

4 (TO_MANY_UNITS); ‘Report the error 

PRINTB (GOOD_NUM_| UNITS); 'Tell him/her the Limit 
a !'Go to cleanup and die 
end; 


i Test to see if this host code is to run in UNATTENDED REF ORMT MODE. 
If it is then ask the operator for the date. If not then tell the 
! operator that an operator must be present during this formatting. 


SRLS EW 
DWNOUSWN-OoO 


> 
oO 


if .SW_UNATT 
then 
begin 


-o 


Clear out the date text buffer before loading in date. 


incr i from 0 to 11 do 
DATETXT C.iJ = ZEROS; 


GMANID (DATMSG, on arelate A, %0°177777', 8, 10, NO); test date from operator 
PRINTB (SW_Q2_N ‘Print notice me segs 

A (SW_04_| “UNATT &° iReport runing. in TTENDED mode 

e 


NNN NNN SSS SSS SSS SSN NN SNS 
MVMVUVIVIVIUIVIVIVT 
WCONAULE WI 


SSeRSS 


berate (SW_Q2_NO NOTICE); ‘Print notice message 
Ane ge (SW_Q3_ OPER) ; 'Tell operator he/she must be present 
end; 


& 


'¢ 
i Everything looks good so far, move on and get the 
j nerceore question responses and save chen. 


ee kd a ek ee a ek ek et ek ee ee ed ee ce ee ed ee ee ed ee ed ed ed ed ad ad ed ed ed 
NO 


ANNAN NSN NNN SS 
SS 
N 


N=30 


LUN = 1; 'Start formatting at logical unit 0 
do 
ir 
= .LUN + 1; 'Up pointer to next logical unit to GPHARD 
if .LUN gequ .LSUNIT then DOCLN; !End host code if no logical units 


end 
until (GPHARD (.LUN, PTBL_PTR)) nequ ZERO; !Repeat GPHARD's until P_Table adrs returned 
‘ 
, Get the P_Table parameters for this unit and go format it. 


RC25_ADDR = .PTBL_PTR Cwrd0); ‘Load up the controllers base addres 
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c 11 
SEQ 132 
CZRCHS CZRCH RC25 DISK FORMATTER 11-Jul-1983 16:05:44 VAX-11 Bliss=16 V3-555 Page 12 
REV A PATCH 00 INITIALIZE SECTION pjuta1988 08:24:19 SPIDERSUSERS: LNEALE AZTECICZRCH3.B16; 3° (8) 


1789 VEC_ADDR = .PTBL_PTR Cwrd1J; ‘Load up the controllers vector address 
1 BR_CEVEL = .PTBL_PTR Cwrd2J; ‘Load up the controllers bus request 
UNTT_NO = .PTBL_PTR Cwrd3J; 'Load up the unit number to format 


B33 


+ 
! Before leaving the init code section we must first do some house keeping 
: ie big rigs ire the ISD_STRUCT preset declaration. The adapter purge interrurt 


t mus efined for the type machine this formatter is running under. 


7 Zbliss (bliss16) !Define compiler 
en 
ISD_STRUCT CBLK1, WRD1, S2W_PI1] = ZERO !No purging for PDP-11 
se 
ISD_STRUCT CBLK1, WRD1, S2W_PI1] = ONE; !Purging for VAX-11 
ee 


! This commented code will load an external copy of the formatter from 
! the local load media into azkel6 module space starting at AZFMTR : VECTOR C .word] 


Seesieancssesser 


14 

Now load in the RC25 formatter DM code from the local boot device 
into the blank buffer allocated in azkel6. Report load error if 
an error code is returned. 


The DM code will only be read in during start! or restarts of the 
host code. Block zero of the the DM .sav file will thrown out. 


if LOAD_FILE (AZFMTR, DM_FNSEXT, DM_SIZE) then DECODE (); 


Oo Co Cd Co Co CO Co Oo Co CO Cd G9 Co CO 
NPN 2 St st 


Now calculate the overlay sections starting address and store the result 
! in global location ‘OVSA’ for future reference. 


' 

i 

4 

q 

! This takes the DM buffer starting adrs and adds to it the number of bytes 
! in the (initial load + remote program header size) resulting in the first 
adrs of the overlay section. 


OvsA = AZFMTR + (.AZFMTR CWRDO)); ‘Calculate overlay start adrs 
en 


CUSWN—O OONAUSWN oO 


RSRSRRRSRE 
Wry -0O00N 


begin 


RAR 


' The continue flag set will cause the current units formatting to be 
: aborted. The next sequential logical wnit will then be formatted. 


WW 


if READEF (EF_CONTINUE) 
then 
begin 


' End this Host code if this .lun is the the last logical unit to format. 
: Else do another GPHARD macro to get the next logical unit to format. 
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CZRCHS FORMATTER 11-Jul-1983 16:05:44 VAX-11 Bliss-16 V3-555 
REV A PATC ON 7=Jul=1983 08:24:19 SPIDERSUSERS: CNEALE .AZTECIJCZRCH3.B16; 


B (FMT3, .LUN, .UNIT_NO); ‘Report this luns format was aborted 
C25 (RCIP, ONES); iAbort this current units formatting 


-LUN + 1) gequ .LSUNIT 
en 


= 
S 


EEF 


WONAOUVUSWN—O OONO 


begin 
PRINTe (NO_ADD_UNITS); !Report no more unit to format 
end; 

end; 


0 09 Co C2 00 Cd Co Cd CD CO 
MADAMA A VIII 


] 

! The new pass event — set means that all logical units have 

: been formatted. Therefore end this host code and return to DS>. 

if READEF (EF_NEW) then DOCLN; !New pass means all units formatted 


i 
' Repeat doing GPHARDS until a non-zero value is returned or all logical units 
have been GPHARD’ed. End this host code if all logical units have been formatted. 


SaeereRcs 


& 
ovo 


do 
rir 
LUN = .LUN + 1; 'Up pointer to next logical unit 
if .LUN gequ .LSUNIT then DOCLN; 'End the host if all logical units GPHARD’ed 


—_ wo os od I ot oss as SS 8 Ss Ss St SS SY) YS SS 


Co 0900 CO 
NNN 
wr 


~~. — 
S38 
NOs 


end 
until (GPHARD (.LUN, PTBL_PTR)) nequ ZERO; !Repeat until a P_table adrs is returned 


~— = 
SSS 
Soe) 


' 
Get the P_Table parameters for this unit and go format it. 


RC25_ADDR = .PTBL_PTR Cwrd0J; ‘Load up the controllers base addres 
VEC_ADDR = .PTBL_PTR Cwrd1J; ‘Load up the controllers vector address 
BR_CEVEL = .PTBL-PTR Cwrd2); ‘Load up the controllers bus request 
WATT JO = .PTBL_PTR Cwrd3J; ‘Load up the unit number to format 

end; 


SSSERES 


i 
: Tell the operator which RC25 controller is being initialized this pass. 
PRINTB (XCRLF); 'Space between each formatting pass 


PRINTB <FMI2, .PTBL_PTR CwRDO)); 
ENDINIT; 


aD Be a ee 


$3 8060 
OwoN 


e-SBTTL LINIT INITIALIZE SECTION 
000034 oy #34,R0 


1$ 
0000006 MOV #PWR.MSG,-(SP) 

000001 #1,-(SP) 
010600 SP,RO 
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; SEQ 134 
CZRCH3 RMATTER 11-Jul-19 H VAX-11 Bliss-16 V3=-555 Page 14 
REV A PATCH 00 7=Jul-19 : SPIDERSUSERS: CNEALE AZTEC IJCZRCH3.816;5 (8) 


14 
#ABO.MSG, (SP) 
1,=(SP) 


SP,RO ; SP,* 
14 


#-1,RO ; *,RCSM.REG 
ay ees ten ; RCSM.REG,* 


000006 #6,SP 
000040 : MOV #40,R0 


2s 
000037 MOV t heaed 


oo 
Eg x 
& NN 
_ — 
& o 


177777 
0000006 


Sx 
~ 
NS 


Sei 


—_ 
OWRVAE 
SNK ENE SE 
=—MNUsS & 
ANN N 


9$ 
0000006 000020 : cMP suet £20 


0000006 MOV #TO.MANY .UNITS,=(SP) 
000001 #1,-(SP) 
MOV sf one 


0000006 MOV #GOOD.NUM.UNITS, (SP) 
000001 To ih 


i=] 
= 


SS8S8SSSSSs5 
COO—000—02-0- 0 
—— — 2d od 
SUSERYS 
FONNSON 
Soon 
FOAAKROOR 


SEVNRNSSVEROS 


ah 
000006 ADD #6,SP 
000001 0000006 : ected 


000140 
000144 
000152 
000154 


Ci RO 
0000006 : 1s DATETXT(RO) 


S 
z 


12 
#SW.Q2.NOTICE,-(SP) 
#1,-(SP) 


#SW.04.UNATT, (SP) 
#1 ) 


-(S 


=—S 
® 
N“N 


-—Oooo 
== 


SPR 

14 

6$ 
#SW.Q2.NOTICE,-(SP) 
a] ) 


=(S 


RSE 
, oe tT) 


e 
e 


#SW.03.0PER, (SP) 
#1,-(SP) 


oo-cooo 
BENS 


—_<— 





CZRCH3 
REV A PATCH 00 


CZRCH RC25 D 
INITIALIZE S$ 


000377. 0000006 
0000006 


0000006 
0000006 
000003 


177777 
0000006 


000010 


000035 
7 


0000006 


0000006 
0000006 


K FORMATTER 
TION 


F 11 
T1-Jul-1 
7 


SP,RO 
—— 


RO.PTBL.PTR 
(RO) ,RC25. ADDR 
2(RO), VEC. ADDR 
4(RO) BR. LEVEL 
6(RO) ONite NO 
#1, 1SD.STRUCT+6 
AZFMTR,OVSA 
#AZFMTR,OVSA 
#6,SP 


#-1 -RO 

BR -EACES ABER 
LUN,RO 
RO,LSUNIT 


#NO.ADD.UNITS, (SP) 
#1,-(SP) 


VAX-11 Bliss=16 V3=555 


in 135 


15 
SPIDERSUSERS: (NEALE .AZTECIJCZRCH3. B16;3 a) 


: SP,* 


. SP,* 


; *,RCSM.REG 
3 RCSM.REG,* 


SS S3sssz 


1 
1 
1 
1 
1 
1 
1 
1 
1 


fi 
o 
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pone 1% 
11-Jul-1983 16:05:44 VAX-11 Bliss-16 V3-555 
7-Jul-1983 08:24:19 SPIDERSUSERS: CNEALE .AZTECICZRCH3. B16;3° ‘a ° 


RO 1877 
LUN,RO 

RO,PTBL.PTR 

(RO) ,RC25. ADDR 

2(RO) ,VEC.ADDR 

4 (RO) .BR.LEVEL 

6(RO) ,UNIT.NO 

AXCRLF = (SP) 


14 

@PTBL.PTR, (SP) 
#FMT2,-(SP) 
#2,-(SP) 

P,RO 

14 

#10,SP 

PC 


3; Routine Size: 221 words, Routine Base: AASCODE + 0156 
: Maximum stack depth per invocation: 7 words 


-SBTTL LSINIT INITIALIZE SECTION 
004767 177102 LSINIT::JSR PC,LINIT 

104411 TRAP 

RTS PC 


3; Routine Size: 4 words, Routine Boose AASCODE + 1050 
: Maximum stack depth per invocation: 2 word 





CZRCHS 
REV A PATCH 00 


000000 000207 


; Routine Size: 1 word, 
3; Maximum stack depth per invocation: 


z Routine Size: > 
; Maximum stack depth per invocation: 


4 11 


11-Jul-1983 1 
7=Jul-1983 0 


2:05:44 


F TTER 
CZRCH RC25 Ore ORMATTE 1:26:19 


AUTODROP SECTI 
Rsbttl *AUTODROP SECTION’ 


i* This code, {is executed immediately after the initialize code if 
! the “ tlag was set. The unit(s) under test are checked to 
! see . they will respond. Those that don’t are immediately 
4 ; dropped from testing. 


BGNAUTO: 


return; 
ENDAUTO; 


-SBTTL LAUTO AUTODROP SECTION 
RTS PC 


AASCODE + 1060 


LAUTO: 


Routine yon 
0 words 


-SBTTL 
004767 177772 LSAUTO: :JSR 
104461 TRAP 
000207 RTS PC 


AASCODE + 1062 


LSAUTO AUTODROP SECTION 
PC ,LAUTO 


Routine Base: 


4 words, 
2 words 


Aa 137 
AX-11 Bliss-16 V3-555 
SPIDERSUSERS: : (NEALE. AZTECICZRCH3.B16; 3 9) 





CZRCH3 
REV A PATCH 00 


ert St tS 


Seseeeesessseeese 


Be Se Ge Be Se Ge Ge Se Se Se Se Se Ge Se Ge Se Se Se Se Se Se Bee 
hh at th td a tt ht it Se 


AUFSWN $6 VONOUSW Oo 


000 


000000 032767 
000006 001004 
000010 012700 
000014 010077 
000020 000207 
3 Routine Size: 
3: Maximum stack 


000000 004767 
000004 104412 
000006 000207 


3; Routine Size: 
3: Maximum stack 


111 


SEQ 138 
CZRCH RC25 DISK FORMATTER 11-Jul-1983 16:05:44 VAX-11 Bliss-16 V3-555 Pa 18 
CLEANUP CODING SECTION 7=Jul-1983 08:92:19 $PIDERSUSERS: NEALE -AZTECICZRCH3.B16; 3° (10) 


Rsbttl "CLEANUP CODING SECTION’ 
i Cleanup coding is assembled with the diagnostic program, utilizing in- 
itiating (BGNCLN) and ending (ENDCLN) directives. The coding can be 
used by either the diagnostic program or the supervisor to affect the 
return of a test device to a static state. 
The clean-up code is invoked in three different ways: 

A. At end of every sub-pass 


i 
i 
$ 
' 
i 
: 
i 
i 
| B. Issuance of DOCLN macro 
4 C. Operator “C 

BGNCLN; 


i Before initing the RC25 controller check first to make sure that 
: that this is not a non-existant register. 


if not .FLG_WRD CNON_EXIST_REG] then WRT_RC25 (RCIP, ONES); ‘Abort DM code execution 


return; 
ENDCLN; 
-SBTTL LCLEAN CLEANUP CODING SECTION 
000002 0000006 LCLEAN: od + | lca : 1923 
177777 MOV #-1,R0 3 *,RCSM.REG 
0000006 MOV RO,@RC25.ADDR : RCSM.REG,* 
1$: RTS PC : 1903 


9 words, Routine Base: AASCODE + 1072 
depth per invocation: 0 words 


-SBTTL LSCLEAN CLEANUP CODING SECTION 


177752 LSCLEAN:: 
JSR PC,LCLEAN 3 1925 
TRAP 12 
RTS PC 

4 words, Routine Base: AASCODE + 1114 


depth per invocation: 2 words 





CZRCHS 
REV A PATCH 00 
19 


ARUN ASOON 


SOGCOCOO GOOD 
BUS 


Ww 


bw a wt 4 


RR 
-oO 


000000 000207 


3; Routine Size: 
3; Maximum stack 


; Routine Size: 
3 Maximum stack 





J11 


CZRCH RC25 DISK FORMATTER 11-Jul-1983 1 
DROP UNIT SECTION 7=Jul=1983 0 


Rsbetl *DROP UNIT SECTION’ 


The drop code is invoked by a DODU macro or a drop command, and con- 
tains any code that needs to be executed in conjunction with the drop- 
ping of a unit from the test cycle. No coding is required in this 
section. 


SEQ 13 
11) 


6:05:44 VAX-11 Bliss-16 V3-555 s 
8:24:19 SPIDERSUSERS : [NEALE .AZTECICZRCH3.B16; 


24 


The effect of a DODU is the same whether executed in the init code or 
in a hardware test. It invokes the drop unit coding and causes subse- 
uent GPHARD'S for that logical unit to be returned ‘NOT COMPLETE’. 

his effect tasts only for the duration of the current command. 
BGNDU; 
HS iad 


-SBTTL LDU DROP UNIT SECTION 
LDU: RTS PC 


1 word, Routine Base: AASCODE + 1124 
depth per invocation: 0 words 


-SBTTL -LSDU DROP UNIT SECTION 
177772 L$DuU:: JSR 

TRAP 

RTS PC 


4 words, _ Routine Base: AASCODE + 1126 
depth per invocation: 2 words 


K 11 


CZRCHS CZRCH RC25_ DISK FORMATTER 11-Jul-1983 
REV A PATCH 00 ADD UNIT SECTION 7-Jul=1983 


ee ‘ADD UNIT SECTION’ 


ithe add code is invoked q the ADD command, and contains 9! code that 
needs to be executed in conjunction with adding a unit back to the 
test cycle. No coding is required in this section® 


Units may be added to the test sequence -_ through the use of opera- 
tor ADD command. Each unit ox Bn! a P-TABLE in memory due to an 
earlier — Sel oaue (i.e. unit was previously dropped). 
The ADD code must be imited _ BGNAU, ENDAU. There is no particu- 
lar coding required in the add code to cause the add to be effective: 


ooee 140 
16:05: VAX-11 Bliss=-16 V3-555 20 
08:24:1 SPIDERSUSERS : (NEALE .AZTECJCZRCH3. B16;3 9012) 


- 


The section is just for programmer housekeeping. 


GNAU; 
return; 


Be Ge Ge Ge Fe Se Se Se Se Ge Se Ge Ge Ge Se Se se 
a a ed dd nd os 3 I td 1 
BASSSSAASEELLREL 
CONAMNEWN—$O OONOUL Ww 


-SBTTL LAU ADD UNIT SECTION 
000000 000207 LAU: RTS PC 


; Routine Size: 1 word, Routine Boose AASCODE + 1136 
3; Maximum stack depth per invocation: 0 words 


-SBTTL LSAU ADD UNIT SECTION 
177772 L$AU:: JSR + Tae 


RTS PC 


; Routine Size: 4 words, Routine poses AASCODE + 1140 
> Maximum stack depth per invocation: 2 words 


000000 004767 
000004 104452 
000006 000207 


end 
eludom 


PSECT SUMMARY 


Psect Name Words Attributes 
AASCODE 308 .i. th, Mi. Gr 


LIBRARY STATISTICS 


=- Symbols -------- Blocks 
File Total toaded Percent Read 


SPIDERSUSERS : (NEALE .AZTECICZRCHO.L16;5 





pes ~ 141 


H3 RCH ot 5 DISK FORMATTER 11-Jul-17 : VAX=11 Bliss-16 V3-555 
AOD. ezECTION : 7aJule1 : SP IDERSUSERS: CNEALE .AZTECICZRCHS. B16;3 125 


CZRCH 
REV A PATCH 00 ADD UNIT SECTION 


15 


COMMAND QUALIFIERS 


BLISS /PDP11/LIST CZRCH3.816 


; Size: 258 code + 50 data words 
; Run Time: 00:17. 9 
: ay Time: 00:23.5 
Sent Used: 214 pages 
; Compilation Complete 
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SEQ 142 
CZRCH RC25 DISK FORMATTER 11-Jul-1983 16:06:09 VAX-11 Bliss=16 V3=555 Pa 
7=Jul-1983 08:90:58 $PIDERSUSERS: LNEALE AZTECICZRCH4.B16;2°(1) 


MODULE CZRCH4 (ZTITLE "CZRCH RC25 DISK FORMATTER’ 
DENT = ‘REV . 


ADDRESSING MODE (RELATIVE) , 
ENVIRONMENT (NOEIS) 


= 
BEGIN 
Zsbttl "MODULE DECLARATIONS‘ 
; Pretty Declarations 


S 


s 
OuFSWN—oo 


So 
So 


i <bLf/Lowercase_key> 


Library "CZRCHO'; 'Define RC25 formatter Library 
require ‘BLSMAC.REQ'; 'Define Bliss Macro require file 


t+ 

' The psect named ‘‘code or $code$"* is redefinded here 
! to be called “‘ab$code"’. This is done to organize the 
: formatters test sections into a seperate psect. 


eueuesssesss 
Onur 


psect 
code = ab$code; 


'¢ 
: Structure declarations used within this module. 
structure 


RC25 register accessing structure. This 

structure allows RC25 register accessing 

to be transportable between the PDP-11 and 
VAX Diagnostic Supervisors. 


This also defines an access algorithm for 
VAX to allow field reference to address 
space without generating machine checks. 


Cm Oe Oe Oe ee Oe te oe ee 
+ 


rC25 (CO, P, S, EJ = 
begin 


PUP TT I IT 
WWIWININININNNNNNID 3 2 2 2 Oo Oo 
WN SO OONOUSWN—"OVONOUSWN Oo 


w 


local 
RC$S_REG; 


RC$S_REG = .(RC25 + Zupval*0)<0, %bpval, 0>; 
— REG 


end ~ 
<P, S, E>; 
!<bl f/page> 


uw 


ee ee me ee me me eee ee ee ee ee ee ee me ee ee ed eee ee ee ee ee ee ee ee ed ed et ed ed ed ed 


ab ab ab sh sbdh sb db) 





CZRCHS 
REV A PATCH 00 


N11 
CZRCH_RC25 DISK FORMATTER 11-Jul-19 


MODULE DECLARATIONS yrjutri 383 08:58:38 


ry 
: External Routines declared outside this module. 


external routine 


0 
GET_DUST_STATUS, 
Ex_SuP_PROG, 
EX"LOC~ PROG.” 
RET_DATA, 
SEND DATA, 
SET_CNTLR_CHAR, 
DUP$I_SERVICE : INT_LNKSTYP novatue, 


INT$SI_SERVICE : INT_LNKSTYP novalue, 
init. T_TOM_AREA, 


DECOBE : novalue; 
'<bl f/page> 


een 143 
VAX-11 Bliss-16 V3-555 
SPIDERSUSERS: CNEALE .AZTECICZRCH4. B16:3° (2) 





CZRCH4 
REV A PATCH 00 
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1563 
1564 
1565 
1566 
1567 
1568 
1569 
570 
71 
72 
73 
74 


MUI 


98. 900000 <I <I SI I 
UV SOONO 


RAUNSLSSELERE 


SELES 


SSER8s 


ek ek ek a ak a ak ee a ek a dd td dd ot ot ot ot ot od ot ot I OO Oo 
AADAC 

= BOO 4 

NO OON 
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oo 144 
CZRCH_RC25 DISK FORMATTER 11-Jul-1983 16:06: VAX=11 Bliss-16 V3-555 
MODULE DECLARATIONS 7-Jul-19 583 08:24: ‘3 SPIDERSUSERS: CNEALE .AZTECICZRCH4. B16; 2 %3) 


1+ 
: External Declaration of datums declared outside of this module. 


external 
Micellanious external data declarations 


SW_UNATT, 'Unattended reformat mode ree 

DATETXT : vector (12, byte], : Stores operator date input 

LUN : word, ; ‘Logical unit number storage 

“a ¥ "NO : word, iPhysical unit number storage 

FLG_ORD bitvector [16], ‘Global flag word 

1SD- STRUCT : blockvector (4, word] field (ISD_FIELD), !'Init sequence data 

PTBL PTR : ref vector C4, sora volatile, 

NEX FLAG : word, iRces as gene existence flag 

NXT_CRN : “byt ommand ref number 

RET_ SAD : ret block CRB_SIZE + 2, word] field, ten FIEL D), 

FCT BUF : block £256, word], ‘External FCT sector load buffer 

: vector CSNDB_SIZE. word], 'DUP send cmd text buffer 
: block CRECB_SIZE, ene field (RECB FIELD). 'DUP receive cmd text buffer 
'Bointer to DM sent ascii text 
laeeven next send ring slot to load cmd into 
'Stores next receive slot to expect response in 
'Stores controllers vector address 
'Stores return status of called routines 
“C2, ord), 'Saves process indicator word 
PIDs ADDR: ref RC25 field (I1SD_FIELD), 'RC25 reference structure 


Init sequence code error 


ACTIVE DUP_ SERVER 
INACTIVE_DOP_ SERVER, 


External FCT request message during RESTORE formatting mode 
FCT_REQ_MSG, 
Printing format strings and ascii text strings 
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11-Jul-19 


CZRCH RC25_DISK FORMATTER 83 1 
7=Jul=1983 0. 


CZRCHS 

REV A PATCH 00 RC25 REGISTER EXISTENCE TEST 

Zsbttl "RC25 REGISTER EXISTENCE TEST’ 
BGNTST; 


SEQ 145 
6: VAX-11 Bliss=-16 V3-555 Page 4 
8: SPIDERSUSERS: CNEALE .AZTECICZRCH4.B16;2 (4) 


1o¢ 
! Functional Description : 

his section will be the first code to be executed during a formatting 
session and will ensure that the object drive to format actually does 
exist. The format for the unit will be aborted if the drive fails to 
respond to this initial test. 


AAA 
kD ed ed ed ed 
OWONOULW 


Implicit Inputs : 
none 


ee eh aD Sb a ad ed a as I Od 


thatthe 


Implicit Outputs : 
none 

Completion Codes : 
none 


Side Effects : 
none 


WN SO VCONOUSWN— 


SAAS SS 


BERG RuaSS 


ao 


tocal 


DUMMY : volatile, 
EMP $ volatile, 


T 

RETRIES; 

FLG_WRD CNON_EXIST_REG] = ZERO; 'Initially clear nonexistant register flag 
= ; 'Clear out nex fla 


NEX FL aad e 

SETVEC (4, INTSI_SERVICE, PRIO7); 'Set for an nex trap 

TEMP = .PTBL_PTR CWRDOJ; 'Get this controllers IP address 
TEMP = .TEMP + 2; 'Make it into the SA register address 


if ..TEMP ‘Read the sa register 


ao 


‘EOF indicator 
'Dummy variable for register ext test 


nO 
Ww 


'Store number of retries to perform 


rSSSISS SSIS 


FWN “OC OBNOUSWN OO 


AAAAAAAAAO 
DAA AAAAATIA 
CONOW 


3 


ek ek ek ed ak at et ot ot a a oa ot ot a3 me a sd do I 


sa 


then 'This is so that if there 
poate 'Is an nex there will be 
D . Y = ZEROS; 
end; 


CLRVEC (4); 
if .NEX_FLAG eql ONES 
then 


begin 
PRINTB (FMT6, .PTBL_PTR CWRDOJ); 
ag CNON_EXIST_REG] = ONE; 


end; 


'A single opperand inst. 
'So that it will trap 


‘correctly. 
'See if we got an nex 
‘Address not there 


‘Print error message 
'Set flag indicating non-existant reg 
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SEQ 146 
CZRCH4 CZRCH RC25 DISK FORMATTER 11-Jul-1983 16:06:09 VAX-11 Bliss=16 V3-555 Page 
REV A PATCH 00 INITIALIZE RC25 CONTROLLER 7-Jul-198 08:2 3 SPIDERSUSERS: CNEALE .AZTECICZRCH4.B16;2 (5) 


tsbttl "INITIALIZE RC25 CONTROLLER’ 
i The next thing to be done is to boot the RC25 controller. We will allow 


a few retries if not successful after the first boot before we concidered 
the Controller dead. 


SESSF 


& 


But before we do the boot sequence the processors priority and interrupt 
vector address must first be loaded. Buring the init sequence the Init 
sequence interrupt service routine will just flag any interrupts and ignore 
them since interrupts are disabled rt) init sequence. Later the DUP 
interrupt service routine will be load and do the DUP communications protocol. 


The following priorities will be assigned: 
1. Processor will run at er ority zero. 
2. The RC25 runs at priority by default. 
3. The DUP interrupt routine will run at priority 7. 


SETPRI (PRIO0); 'Set the processers priority 
CLRVEC (.VEC_ADDR) ; ‘Clear out the vector before setting 
SETVEC (.VEC_ADDR, INTSI_SERVICE, PRIO7); :Set the interrupt service priority 


sacneasee 
NOUSWN OO 


“I 
oo 


'¢ 
: Retry the RC25 booting until the return is true or the retry limit is reached. 


SESSPERESS 


RETRIES = =1; ‘Reset the retry counter 
do 


begin 
RET STATUS = BOOT_RC25 (); 'Boot the RC25 controller 
RETRIES = .RETRIES + 1; ‘Up the retry count 


end 
until (.RET_STATUS) or (.RETRIES eqlu ONE); !Repeat the Boot until done 
] 
: Report booting error if the return status never came back as true. 


38 


—_ ee Re nd a a ds os od td ts = ts ot SS YS SS Se 
© 
No 


DARKO 
2s Oo 
w 


4 not .RET_STATUS !Did the Controller boot 
en 


poate 
PRINTB (BOOT_FAILURE); 
DOCLN; 


end; 


‘Report a boot error 
!Abort the program 


oS 
co 


'¢ 

! Now that the RC25 controller is booted, check to make sure that the controller 

: has done its part of the DUP protocol by clearing out the port communications area. 

' while we're there set the communication area for the up and coming communications 

: between the remote and host program. 

7 INIT_COM_AREA () ‘Was the com area cleared out as expected 
en 


'Com area not inited so error and abort 
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— sd os = = = a a I 
NNN NNN 
RN) a et ot ot 2 IO 
SUOBNOUSWwN-0OO 


begin 
PRINTB (PROTO_VIOLATION); 
PRINTB (PORT_INIT_ERR); 
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CZRCHS CZRCH RC25 DISK FORMATTER 11-Jul-1983 
REV A PATCH 00 INITIALIZE RC25 CONTROLLER 7=Jul-1983 


DOCLN; 
end; 


SEQ 147 
6:06:09 VAX-11 Bliss=-16 V3-555 Pa 
8:24:38 SPIDERSUSERS:LNEALE AZTECICZRCH4.B16:2° (5) 


1 
0 


' 
' Before writing the go to the IP register load the DUP interrupt service adrs 
! into the RC25 vector address for the up and coming communications between 
: the host and controller. 


VN“ 


CLRVEC (.VEC_ADDR); ‘Clear out the vector before starting 
SETVEC (.VEC_ADDR, DUPSI_SERVICE, PRIO7); 'Set the interrupt service priority 


i Start the controllers functional micro code by writing the SA Register 
with step four write data with the go bit set. 


WRT_RC25 (RCSA, (.ISD_STRUCT CBLK3, ISWRT, ISW_ALL) or %0'000001')); § !Let the controller go 


FUNLSSo 


Se Se Ge Se Ge Ge Fe Se Ge Ge Fe Be Be Ge oe 
ss 
ANNNNN 

Ww 

ww 





CZRCH4 
REV A PATCH 00 
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Sane 148 
CZRCH RC25 DISK FORMATTER 11-Jul=1 % VAX-11 Bliss=16 V3-555 
BRING RC25 CONTROLLER ONLINE 7-Jul-1 :38 SPIDERSUSERS: CNEALE .AZTECIJCZRCH4 B16; 3% (6) 


Zsbttl "BRING RC25 CONTROLLER ONLINE’ 


e+ 

! Functional Description : 
This section will set the RC25 controllers characteristics and place 
the unit on-line. 


i 

' 

i 

: 

' Implicit Inputs : 
; none 

! Implicit Outputs : 
3 none 

' Completion Codes : 
4 none 

! Side Effects : 
none 

14 


' Set the controller characteristics. Default values will be taken in all cases 
: except for the host time out value which will be changed to ‘wait for ever’. 


if SET_CNTLR_CHAR () then DECODE (); 'Call decode if not successful 


' 

' Do a unit on Line cmd which will spin up the device and load the heads. The 

' unit to be placed on Line will be the last unit number received from the ‘gphard’ 
i _macro in the init code. 


PRINTB (FMTS, .LUN, .UNIT_NO); ‘Tell operator which units coming online 


if ON_LINE () then DECODE (); 'Call decode if not successful 
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SEQ 149 
CZRCH4 CZRCH RC25 DISK FORMATTER 11=Jul=1 706 VAX=-11 Bliss=16 V3=555 Page 
REV A PATCH 00 DOWN LINE LOAD FORMATTER AND MONITOR TASK 7-Jul=1 224 SPIDERSUSERS: CNEALE .AZTECICZRCH4.B16;2 (7) 


Zsbttl ‘DOWN LINE LOAD FORMATTER AND MONITOR TASK’ 
ee 
! Functional Description : 
! his section will down Line-load the RC25 formatter and monitor 
the formatting task. 
' Implicit Inputs : 
Implicit Outputs : 
none 
Completion Codes : 
none 
Side Effects : 
none 


Ro 


NNN 
Co 
wi 


' 

! See if the Dup server in the RC25 Controller is in an 
! idle state. To do this first get the dust status and 
! then look at the flag field bit 3 for a: 
: 0 = idle 
] 


Soo Ne 


1 = active 


if GET_DUST_STATUS () then DECODE (); !Call Decode if connection error 
' 
: Look in the flag field bit 3 to see if the server is active. 


SISLTSSISTIES 


+4 -RET_ENSAD CFLG_83) 'If the server is active exit and reboot 
en 


SSS 
an— 


begin 
PRINTB (ACTIVE_DUP_SERVER) ; 
DOCLN; 


end; 


SESS 


t 

! The server is not active so down Line load the formatter 
! and start its execution by issuing a ‘Execute supplied program’. 
: Call the decode routine if a connection error is detected. 


if EX_SUP_PROG () then DECODE (); 'Call decode if connection error 


' Get the dust status to see if the server is in an active 
' state. An active state is what we want so error if the 
server is in an idle state. 


! If in the active state then save the progress indicator 
in *Pid_save’’ for future reference. 


2.00.00 G9 G9 G9 Op 09 09 09 G9 09 09 
RQ ss 
MEWN —O OONOAUSWwN oO 
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ma ka kk a kk a ad ad a ad a ed as a ot ot oO ot 2 ot ot ot So os ot ot 


if GET_DUST_STATUS () then DECODE (); 'Call decode if connection error 


@ 
N 
oa 





H 12 
SEQ 150 
CZRCH4 CZRCH RC25 DISK FORMATTER i we 16:06:09 VAX-11 Bliss-16 V3-555 Page 
REV A PATCH 00 DOWN LINE LOAD FORMATTER AND MONITOR TASK 7-Jul-1983 68:24:38 SPIDERSUSERS: [NEALE .AZTECICZRCH4.816;2 (7) 
t 
Look at the flag field bit 3 to see if the server is active. 
not (.RET_ENSAD CFLG_83)) 'Reboot if server is idle 
en 


begin 
PRINTB (INACTIVE _DUP_SERVER) ; 
DOCLN; 


eRET_ENSAD CPLO_IND]; 'Save progress indicator lo word 
eRET_LENSAD CPHI_INDJ; 'Save progress indicator hi word 


‘+ 

' The Dup server is in the active state running the formatter 
: program. This DO LOOP will loop on the DUP sub-protocol 
' doing the “‘send and receive’ data commands. These commands 
! establish the communications between this host program and 
: the remote formatter program running in the RC25 controller. 


RETRIES = ZERO; ‘Clear out the retry flag 


while TRUE do 
begin 


'¢ 
' Do a ‘Receive_data’ command which poll's the remote program 
! for a message. The returned message can either be a: 


RRANAAAAAA RS RRR ee ee 


1. Question 
where the ascii text is a prompt for information. 


MO VDONOULWN SO 0Onouw 


2. Default question 
Where the default question message is identical 
to the question message exept that a null (zero 
length) send data is taken to be a default answer 
to the question. 


SEFEREE 


Ze 


Information 
Where the ascii text is an informative message. 


ISS 


Termination 
Where the ascii text is an normal termination message. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ShEE 
wn 


Fatal Error 
Where the ascii text is a fatal error message. 


Special 
This type is used when only a host program could 
respond. 


if REC_DATA () then DECODE (); 'Call decode if connection error 
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SEQ 151 
CZRCH4 CZRCH RC25 DISK FORMATTER 11-Jul-1983 16:06:09 VAX-11 Bliss-16 V3-555 Pa 1 
REV A PATCH 00 DOWN LINE LOAD FORMATTER AND MONITOR TASK 7-Jul-1983 08:24:38 SPIDERSUSERS: NEALE AZTECICZRCH4.B16:2° (7) 


2 


! From the first word in the send/receive data buffer, look 
' to see what type moosaee the remote program has sent to 
! the Host program. Use this message sree number to index 
' into the select expression to perform the 

! by the remote program. 


8 
uw 


requested action 


' 
SCLRSBUF ; 'Clear out the send buffer area 


setae ~ eat -REC_BUF CMSG_TYP] of 'Select the appropriate action 
se 


{1] : 'Question message type 
gin 


' Look into the send/receive data buffer at the message 

! number field and see what question the remote program 
is asking. Use the fields value to index into the 

' select expression to perform the appropriate action. 


SSSSSESSSSISPSSO SER BE 


888 


OWDWNAUVUSWN $C OONOUSWN—O0anN 


eae tae -REC_BUF CMSG_NUM] of 'Select the requested question 
se 


C0] ‘Enter current date <MM-DD-YYYY> 


begin 
i 1 in un-attended reformat mode then give to the DM the 
! date received from the init code else let the DM prompt 
: the operator for the date. 
4d - SW_UNATT 'Is the host running in unattended mode 
en 
begin 
i eRETRIES ‘Did DM not verify the date the last ime 
en 
begin 
' Clear out the date text buffer before loading in 
: date and ask the operator for the date again. 
incr i from 0 £9 11 do 
DATETXT C.ijJ = ZEROS; 


ousue (DATMSG, DATETXT, A, %0°177777°, 8, 10, NO); !Get date from operator 
end; 


SFILLDATE; ‘FILL the send buffer with the date 
RETRIES = ONE; 'Set the retry flag 


UO RUN LSS Aad a 


sy 


SOOONOM 


end 
else 


bas 
ID (MSGADR, SND_BUF, A, %0°177777°, 8, 10, NO); 
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SEQ 152 
ZRCHS RCH RC25 DISK FORMATTER 11-Jul-1983 16:06:09  VAX=-11 Bliss-16 V3-555 Page 
REV A PATCH 00 Sun LI LINE Ne NE LOAD FORMATTER AND MONITOR TASK 7-Jul-1983 08:24:38 SPIDERSUSERS: CNEALE .AZTECICZRCH4. 816;2 7) 


1941 end; 
PRINTB (CRLF); 
if SEND_DATA () then DECODE (); 
end; 
(7] : 'Enter a non-zero serial number 


ID (MSGADR, SND_BUF, A, %0°177777°, 1, 64, NO); 
PRINTB (CRLF); 


if SEND_DATA () then DECODE (); 
end; 
Cotherwise) : !'This message number is unknown 


egin 
RE? STATUS = UMN_CODE; 'Unknown message number error code 
DECODE (); ‘Report error and die 


FWN “CO OCONOUSwr 


BSSSSSSSGSSRELLELELR 


SSSZIS3 


end; 
tes; 


end; 


(2) : ‘Default Question 
begin 


solectensy eREC_BUF CMSG_NUM] of 
se 


C1) : 'Enter unit number to format <0> 


SESSREE 


mee ee a ek a ak a tk ed ad td ot ot = I I 
{SSF 
Wwr-0o0 


i If in un-attended reformat mode then give to the DM the 
!' unit number obtained from the hardware P_Table else let 
! the DM prompt the operator for the unit fo format. 


. - SW_UNATT ‘Is the host running in unattended mode 
en 


© 000 
ARAN—S 


n 
SNB_BUF = .UNIT_NO; 
PRIRTE (FMT7, .ONIT_NO); ‘Report which unit is being formatted 
otee, 


crtntD (MSGADR, SND_BUF, A, %0°177777", 1, 3, YES); 
end; 


PRINTB (CRLF); 
if SEND_DATA () then DECODE (); 
end; 


D000 
SSS 


BS SEER E: 


7 
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Pa 153 
CZRCH4 CZRCH RC25 DISK FORMATTER 11-Jul-1983 16:06:09 VAX-11 Bliss=16 V3-555 
REV A PATCH 00 DOWN LINE LOAD FORMATTER AND MONITOR TASK 7=Jul=1983 08:24:38 SPIDERSUSERS : (NEALE .AZTECICZRCH4. B16:2 7) 


[C4] : !Use existing bad block information <N> 
peste 


i If in un-attended reformat mode then tell the DM to 


i do a reformat mode else let the DM prompt the operator 
: for the formatting mode to use for this unit. 


ae - SW_UNATT 'Is the host running in unattended mode 


SN 8 BUF = Zc'Y'; 'Default to do reformat mode 
sigan 


egin 
catnip (MSGADR, SND_BUF, A, %0°177777", 1, 3. YES); 
end; 


PRINTB (CRLF); 
if SEND_DATA () then DECODE (); 
end; 
'Use down=-line load <N> 


be he 
ID (MSGADR, SND_BUF, A, %0°177777°, 1, 3, YES); 
PRINTB (CRLF); 


if SEND_DATA () then DECODE (); 
end; 


# P 'Continue if bad block information is inaccessable <N> 
gin 


i - SW_UNATT 'Is the host running in unattended mode 
en 


begin 
Ss D ~BUF = Zc'N'; !Default not to continue 
en 

else 


begin 
GND (MSGADR, SND_BUF, A, %0°177777", 1, 3, YES); 
end; 


PRINTB (CRLF); 
if SEND_DATA () then DECODE (); 
end; 
Cotherwised : 'This message number is unknown 
pee’ STATS © UMN_CODE; ‘Unknown message number error code 


DECODE ‘Report error and die 
end; 
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CZRCH4 CZRCH RC25 DISK FORMATTER 11-Jul-198 
REV A PATCH 00 DOWN LINE LOAD FORMATTER AND MONITOR TASK 7=Jul=198 


tes; 
end; 


SEQ 154 
3 16:06:09 VAX=-11 Bliss-16 V3=-555 Page_ 13 
3 08:24:38 SPIDERSUSERS : (NEALE .AZTECICZRCH4.816;2 07) 


C3] : !Informational message 
begin 


bolectense -REC_BUF CMSG_NUM] of 
se 


(0, 1. 2. 3. 4. 5. 7. 9. 11, 14, 162 : !ALL possible information msg's 


egin 
PRINTB (FMT1, MSGADR); 
end; 


Kothorwieed !'This message number is unknown 
REY. S SIATyS * UMN_CODE; : Unknown message number error code 
DECODE ‘Report error and die 
end; 
tes; 
end; 


[4] : !'Termination message 
begin 


solectencu -REC_BUF CMSG_NUM) of 


{12, iy ‘Abort and normal termination type 


begin, (FMT1, MSGADR); 

WRT_RC25 (RCIP, ONES); 'Stop the remote program 
exit loop ‘Return to init code 
end; 


Cotherwised : 'This message number is unknown 
egin 
RET STATUS = UMN_CODE; ; Unknown message muaber error code 
DECODE (); ‘Report error and die 
end; 
tes; 
end; 


cs}: ‘Fatal error message 
begin 


solectensy -REC_BUF CMSG_NUM] of 
se 


(1 te 26) ‘Error messages are from 1 to 24 


Pate (FMT1, MSGADR); 
RC25 (RCIP, ONES): + the remote program 
Bac N; Kill this formatter and return to init code 


HPoMononoNonononononony 
SSesssssscess 
SSSSLSSRAVE 
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SEQ 155 
CZRCH RC25 DISK FORMATTER 11-Jul-1983 16:06:09 VAX-11 Bliss-16 V3=555 Page_ 14 
DOWN LINE LOAD FORMATTER AND MONITOR TASK 7=Jul-1983 08:90:38 SPIDERSUSERS: CNEALE .AZTECICZRCH4.B16;2 (7) 


end; 


CZRCH4 
REV A PATC 


Cotherwise] : 'This message number is unknown 


egin 
RE? STATUS = UMN_CODE; 'Unknown message number error code 
vECODE (); ‘Report error and die 

— 


end; 
[6] 


: ‘Special message type 
begin , "> 


botectensu -REC_BUF CMSG_NUM) of 
se 


C1) 'FCT sector request 


begin 


! If this is the first FCT sector request (sector 0) then ask 

! the operator for the external FCT file name and open the file. 
! The supervisor will error and return to DRS> monitor if the 

! requested file is not found on the local load media. 


WANIWWonononanong et ek ed ed et ed 
WR $90 OO NOUSWN “OOOO NEw s 


if .REC_BUF CMSG_TXT] eql FCT_SEC_0 
then 


begin 
GMANID (FCT_REQ_MSG, SND_BUF, A, %0°177777"°, 1, 10, NO); 
OPEN (SND_BUF); 


end; 


t 
: Load into the FCT_BUF the next sequential 256 FCT sector words 


incr FCT_WRD from FCT_BUF to FCT_BUF + %0°776° by %0'2° do 
egin 
EOP = GETWORD (.FCT_WRD); 
end; 
Test to see if the EOF indicator was returned from the GETWORD macro 
before 16 FCT sectors were read indicating an illegal FCT file format. 


End of file is reached when .EOF = 0; 


WDONOAOUEWN $0 OODNOUSWh Oo 0OON 


if PF a eat ZERO) and (.REC_BUF CMSG_TXT] Lss FCT_SEC_15)) or (.REC_BUF CMSG_TXT] gtr 
7 be : 
SND_BUF [0] = ONES; !Indicate failure to get good FCT file 
if SEND_DATA () then DECCDE (); !Send failure to DM 


RaPONoPoNoNaNngPONNyNoNoNONGANONONONg AgNO NN NoNo Nong NoNono fof ngnononononononononsnononononononorononoruninnrr = 


ee ee ee ee me me ee me ee ee ee ee ee ee ed ed ed ed ed ed ed ed ed od od od od = 
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* 156 
CZRCH4 CZRCH RC25 DISK _FORMATTER 11-Jul-1983 16:06:09 VAX=-11 Bliss=16 V3=555 
REV A PATCH 00 DOWN LINE LOAD FORMATTER AND MONITOR TASK 7=Jul=1983 08:24:38 SPIDERSUSERS: CNEALE .AZTECICZRCH4. B16; 39 7) 


RET_STATUS = ILL_FCT; ‘Host will also report the failure 
DECODE QO; ‘Error out and die 
end; 


i Return to the remote program a success indicator and the 
' unibus lo and hi adrs of where this FCT sector can be found 
and send the information back to the remote program. 


SND BUF C0] = ZERO; 'Indicate success 
SND_BUF C1] = FCT BUF ; 'Lo unibus adrs of FCT sector 
SND_BUF C2] = ZERO; 'Hi unibus adrs of FCt sector 


if SEND_DATA () then DECODE (); !'Send reply back to DM 


IN 
sooo 


WHO 


Close this External FCT file if this is FCT sector 15. 


ans 


if .REC_BUF CMSG_TXTJ eql FCT_SEC_1. then CLOSE; 
end; 


ele.) 


paahprwtees 8 


REY Sranus = UMN_CODE; 
end; 
tes; 


SPSSsssSssseSFTSses 


ono 
oS SLRSRANLS 


end; 
Sathorwtend 4 !'This message number is unknown 
Refs Fa he UMT_CODE; 'Unknown message maser error code 
DECODE ‘Report error and die 
end; 
tes; 
end; 


2209 
2210 ENDTST; 
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CZRCH4 CZRCH RC25 DISK FORMATTER 
/REV A / 


ABORT, GET.DUST.STATUS, EX. nt — 
FX.LOC. toes REC.DATA, SEND.D 
SET.CNTLR.CHAR, ON.LINE, DUPSI. _SERVICE 
secabes Sv.0n r. IT.COM.AREA, BOOT.RC25 


DATETXT, 
> ISD.STRUCT, PTBL.PTR 
T D, FCT.BUF 


NRD RET.STATUS 
PID.SAVE, RC25.ADDR, BOOT. FAILURE 
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Pane 157 
1 ae DISK FORMATTER MF it es 46:06:08 VAX-11 Bliss-16 V3-555 16 
NE LOAD FORMATTER AND MONITOR TASK 7=Jul=1983 08:24:38 SPIDERSUSERS: (NEALE .AZTECICZRCH4. B16;2 7) 


.GLOBL PROTO.VIOLATION, PORT. INIT.ERR 

~GLOBL ACTIVE DUB. SERVER, INACTIVE.DUP.SERVER 
“GLOBL FCT.REQ.MSG ‘. DATMSG, CRLF, FMT1 

SGLOBL Farse Crate. F MT7 


CZRCHS 
REV A PATCH 00 


0000006 


6 
000002 0000006 


000072 
000076 
000100 
000106 
000110 
000114 
000120 
000124 
000126 
000130 
000136 
000140 
000142 
000144 
000146 
000152 
000154 
000160 
000164 


0000006 

000340 

0000006 

000004 

000003 

0000006 000010 

000002 000010 

000001 000010 

000012 

900004 

0000006 177777 
000G 


000 
0000006 
000002 


000002 0000006 


0000006 
000340 
0000006 
0000006 
000003 
177777 
0000006 

G 
000001 
000001 
000001 0000006 


0000006 
000001 


$T1 DOWN i LOAD FORMATTER AND MONITOR TASK 


ABSCODE, 
R1,$SAVE3 


= (SP) — 
#2,FLG.WRD 


#340,-(SP) 

#INTSI SERVICE ,~(SP) 
#3,-(SP) 
@PTBL.PTR,10(SP) 
#2,10(SP) 

#1.a10(SP) 


12(SP) 
0 


"yy 
HEX. FLAG #1 


@PTBL.PTR, (SP) 
#EMT6,~(SP) 


14 
#2,FLG.WRD 
(SP)+, (SP)+ 
RO 


41 
VEC .ADDR ,RO 
36 


#340, (SP) 
#INT$1.SERVICE,-(SP) 
VEC. ADDR, -(SP) 


a7 (SP) 


PC, BOOT.RC25 
RO-RET. STATUS 

R3 

#1,R0 

R3,41 

#1 RET. STATUS 
BOOT. FAILURE, (SP) 
#1,-(5P) 


f 


* ,RETRIES 


; RETRIES 
; *,RET.STATUS 
; RETRIES,* 
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CZRCHS CZRCH RC25 DISK FORMATTER 11-Jul-198 
REV A PATCH 00 DOWN LINE LOAD FORMATTER AND MONITOR TASK 7=Jul=198 


14 
4 


SEQ 158 
3 16:06: VAX-11 Bliss-16 V3-555 Pa 17 
3 06:9 LP IDERSUSERS : LNEALE AZTECICZRCH4.B16;2° (7) 


(SP)+ 

PC, INIT.COM.AREA 

i 
#PROTO.VIOLATION, (SP) 
#1,-(SP) 


#PORT. INIT.ERR, (SP) 
#1,~(SP) 


44 
(SP)+, (SP)+ 
VEC.ADDR,RO 


#340, (SP) 
#DUP$1. SERVICE ,-(SP) 
VEC ADDR. ~(SP) 


1SD.STRUCT+16,R1 : #,RCSM.REG 
#1,R : #,RCSM.REG 
RC25.ADDR,RO 

o ) ; RCSM.REG,* 
PC,SET.CNTLR. CHAR ° 


0 


00 

2 
04 
10 
14 
20 
24 
30 
32 
34 


7$ 
PC ,DECODE 
UNiT.NO. (SP) 


LUN,= 
#EMTS,=(SP) 
on(S 


PC,ON.LINE 
RO 


000360 
000364 
0003 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 


cn 


8$ 
PC ,DECODE 
oo 88S OUST SERS 


3 


EEE 
= 


PC ,DECODE 

RET.ENSAD,RO 

$2900.€2 (RO) 
#ACTIVE .DUP. SERVER, (SP) 
#1,-(SP) 


ese 

eecsss 

on 
SRE 


2238 


RIS 
Aao 


4 
% 


SS5555 
Sarno 
GRRE 


(SP)+ 
PC,EX.SUP.PROG 
RO 

11$ 





CZRCHS 
REV A PATCH 00 


CZRCH RC25 DISK FORMATTER 


DOWN LINE LOAD FORMATTER AND MONITOR TASK 


11$: 


12$: 


004000 000022 


0000006 
000001 


000024 0000006 
000026 0000026 


D 13 
11-Jul-1983 16:06:09 
puta 1983 08:90:38 
PC ,DECODE 
PC. GET .DUST.STATUS 


DECODE 
net ENSAD,R 
4000,2 Seat 


#INACTIVE .DUP. SERVER, (SP) 
#1,-(SP) 

44 

(SP)+ 

14$ 

24(R1) ,PID. SAVE 

—e, -PID. SAVE+2 
PC,REC.DATA 

RO 


16$ 

PC ,DECODE 
RO 

SND .BUF (RO) 
R0,#110 
REC.BUF ,R1 
RI 


R1 
#177760,R1 
R1,#1 


24 
REC.BUF ,RO 
#170000,RO 


23s CO 
#1,SW.UNATT 
21$ 


#1,R3 
19 


RO 
DATETXT(RO) 


SEQ 159 
VAX-11 Bliss-16 V3=555 Page_ 1 
SP IDERSUSERS: :CNEALE .AZTECICZRCH4 .B16;2 7) 


; 1825 


1831 


; RETRIES 


* ,RETRIES 
; I 
; #(1) 
; I 
. I,* 








CZRCH4 
REV A PATCH 00 


NNORAAR RAN SSO 
N —~— 
RIVSNSESENRRVS ESE 


RYNNSSVSS SS 


MONON 


001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 


PoPononononofonofronory 


— 


Se RC25 DISK FORMATTER 
LINE LOAD FORMATTER AND MONITOR TASK 


E 13 


11-Jul-1983 16:06 
7=Jul-1983 08:24: 


38 


Pa 160 
VAX-11 Bliss-16 V3=-555 
SPIDERSUSERS: CNEALE .AZTECICZRCH4. B16.2 97) 


0000006 0000006 
000013 
000001 


0000006 
000001 


000002 
000C006G 
170000 
000001 


000001 0000006 


0000006 0000006 
0000006 


000002 


20S: 


DATETXT (RO) ,SND.BUF (RO) : — 


4 I,* 
* RETRIES 


100 
WCRLF , (SP) 
= (8P) 


31$ 
R1,#2 

39$ 
REC.BUF ,RO 
#170000, ‘RO 


ef SW.UNATT 
25$ 
UNIT.NO,SND.BUF 
UNIT.NO, (SP) 


#FMT7,=(SP) 
#2,-(5P) 
2RO 


14 
(SP)+,(SP)+ 
26$ 

43 

406 

SND .BUF 

152 
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SEQ 161 
CZRCHG CZRCH RC2S DISK FORMATTER 11-Jul-1983 16:06:09  VAX-11 Bliss-16 V3-555 Page 2 
REV A PATCH 00 DOWN LINE LOAD FORMATTER AND MONITOR TASK 7-Jul=1983 08:24:38  SPIDERSUSERS: NEALE AZTECICZRCH4.B16;2° (7) 
001232 000003 «WORD 3 
001234 012716 0000006 26$: MOV ACRLF, (SP) : 1992 
001240 012746 000001 MOV #1,-(SP) 
001244 010600 MOV SP,RO 3 SP,* 
001246 104414 TRAP 14 
001250 000453 BR 31$ : 199% 
001252 020027 000004 27$: CMP RO, #4 : 1970 
001256 001027 BNE 0$ 
001260 032767 000001 0000006 BIT #1,SW.UNATT : 2006 
001266 001404 BEQ 8$ 
001270 012767 000131 0000006 MOV #131, SND.BUF : 2009 
001276 000410 BR 298 : 2006 
001300 104443 28$: TRAP 43 : 2013 
001302 000406 «WORD 406 
001304 y SND .BUF 
001306 000152 [WORD 152 
001310 "WORD MSGADR 
001312 177777 “WORD 1 
001314 000001 “WORD 1 
001316 000003 “WORD 3 
001320 012716 0000006 298: MOV WCRLF, (SP) : 2016 
001324 012746 000001 MOV #1,-(SP) 
001330 010600 MOV SP.RC : SP,* 
001332 104414 TRAP 14 
001334 000421 BR 31$ : 2018 
001336 020027 000005 30$: CMP RO,#5 : 1970 
001342 001023 BNE 32$ 
001344 104443 TRAP = 43 : 2024 
000406 «WORD 406 
001350 0000006 "WORD SND. BUF 
001352 000152 [WORD 152 
001354 0000006 “WORD MSGADR 
001356 177777 “WORD =1 
1360 “WORD 1 
001362 3 “WORD 3 
001364 012716 0000006 MOV WCRLF, (SP) : 2025 
001370 012746 000001 MOV #1,-(SP) 
001374 010600 MOV SP;RO : SP,* 
001376 104414 TRAP 
001400 004767 0000006 31$: JSR PC,SEND.DATA ; 2027 
001404 006 ROR RO 
001406 103436 BLO 36$ 
001410 37 BR 37$ : 2023 
001412 020027 000006 328: CMP RO, M6 : 1970 
001416 001036 33$: BNE 38$ " 
001420 032767 000001 0000006 BIT #1, SW.UNATT : 2034 
001426 001404 BEQ 4 
001430 012767 000116 0000006 MOV #116, SND .BUF : 2037 
001436 000410 BR 35$ : 2034 
001440 104443 34$: TRAP 43 3 2041 
001442 000406 «WORD 406 
001444 eWORD SND .BUF 
001446 000152 “WORD 152 
001450 "WORD MSGADR 
001452 177777 “WORD = 
001454 000001 “WORD 1 
001456 000003 “WORD «3 
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fan 162 
CZRCH4 CZRCH lg DISK _FORMATTER 11-Jul-1983 16:06:09 VAX-11 Bliss-16 V3-555 
REV A PATCH 00 DOWN LINE LOAD FORMATTER AND MONITOR TASK 7=Jul=1983 08:24:38 SPIDERSUSERS: (NEALE .AZTECICZRCHS4. B16;2 7) 


012716 000000G 35$: #CRLF , (SP) ; 2044 
000001 #1,-(SP) 
MOV SP,RO ; SP,* 


1 
0000006 PC,SEND.DATA 
ROR RO 


37$ 
0000006 : PC ,DECODE 
: (SP)+ 


BR 44$ 
004001 0000006 : #4001 ,RET.STATUS 
000532 57$ 
000003 


#MSGADR, (SP) 
#FMT1, =(SP) 
#2,-(SP) 
oR 

14 
43$ 

R1,&6 
rer 
REC.BUF ,RO 
#170000, RO 
ROA 
aes 
RO,#15 
38$ 
#MSGADR, (SP) 


oent =(SP) 
000002 .=( ={SP) 
MOV $6° 


ab 


~ 


thn (SP)+ 
RO,@RC25.ADDR 
BR $ 
000005 : R1,45 

BNE 45$ 
0000006 MOV REC .BUF RO 
170000 #170000,R0 


000030 MP RO,#30 


oo-oo 


177777 
0000006 


Sanss 
SVEN 


Ss 
RFSSSz 





CZRCH4 
REV A PATCH 00 


H 13 


CZRCH RC25 DISK FORMATTER 11-Jul-1983 16:06:09 
DOWN LINE LOAD FORMATTER AND MONITOR TASK 7=Jjul-1983 08:24:38 
38$ 
0000006 #MSGADR, (SP) 
0000006 ear (SP) 
000002 on Sp) 
ooe8 
177777 #-1,RO 
0000006 RO, @RC25.ADDR 
(SP)+, (SP)+ 
58$ 
000006 R1,46 
56$ 
0000006 REC.BUF RO 
170000 #170000, RO 
ee eas 
0000026 REC .BUF +2 
46$ 
43 
406 
SND .BUF 
142 
FCT.REQ.MSG 
1 
12 
0000006 #SND.BUF .RO 
0000006 #F CT.BUF RI 
50$ 
R1,RO 
27 
48$ 
RO, (R1) 
000001 #1-R2 
49$ 
R2 
000002 #2,R1 
0007766 R1 AF CT. BUF +776 
47$ 
R2 
51$ 
0000026 000017 REC.BUF+2,417 
27 0000026 000017 REC.BUF +2,#17 
177777 0000006 #-1, SND. BUF 
7 0000006 PC SEND. DATA 
53$ 
67 0000006 PC ,DECOD 
006001 0000006 #6001 OOF STATUS 
7 0000006 DECODE 
0000006 SN uF 
0000006 0000026 #F CT.BUF , SND.BUF +2 
0000046 SND .BUF +4 


SEQ 163 
VAX-11 Bliss=-16 V3-555 Page. 22 
SPIDERSUSERS : (NEALE .AZTECICZRCH4. B16:2 7) 


: 2109 
3 SP,* 

3 *,RCSM.REG 2110 
; RCSM.REG,* 

; 2108 
; 2104 
: 1894 
: 2126 
: 2138 
; 2141 
: 2142 
3 *,FCT.WRD 2149 
: FCT.WRD,* 2151 


: RO,FCT.WRD 
* ,EOF 


: EOF 

: s FCT .WRD 2149 
: EOF 2161 
: 165 
: 167 


Sete te ted 
norerorer 
Serer vers 
SIadS 
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CZRCH4 Tonigd i DISK FORMATTER 11-Jul-1983 48:06: VAX-11 Bliss-16 V3-555 
REV A PATCH 00 DOWN LINE LOAD FORMATTER AND MONITOR TASK 7=Jul-1983 0 


004767 0000006 + ptaaatie 


Ban 164 


23 
224: SPIDERSUSERS: (NEALE .AZTECICZRCH4. B16; 3 7) 


767 0000006 PC ,DECODE 
0000026 000017 : MP REC .BUF+2,#17 
7 BNE 58$ 
35 
BR 58s 
001001 0000006 : = MO #1001, RET. STATUS 
: PC ,DECODE 
176334 : MP 15$ 
000036 9$: #36,SP 


: Routine Size: 607 words, Routine Base: ABSCODE + 0000 
3; Maximum stack depth per invocation: 23 words 


-SBTTL 11 DOWN LINE LOAD FORMATTER AND MONITOR TASK 
PC,$T1 : 
66 


004767 175476 
104466 
000006 006000 
000010 103773 
000012 000207 
3; Routine Size: 6 words, Routine Base: ABSCODE + 2276 
3; Maximum stack depth per invocation: 2 words 
end 
eiudom 


OTS external A veterences 
-GLOBL S$SAVE 
PSECT SUMMARY 
Psect Name Words Attributes 
ABSCODE 613 RO, I , LCL. REL, CON 


LIBRARY STATISTICS 


; seceeee= Symbols -------- Blocks 
File Total Loaded Percent Read 


SPIDERSUSERS : (NEALE .AZTECICZRCHO.L16;5 
398 168 42 38 
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CZRCHS CZRCH RC25 DISK FORMATTER 11-Jul-198 16:06: 4 VAX-11 Bliss-16 V3-555 
REV A PATCH 00 DOWN LINE LOAD FORMATTER AND MONITOR TASK 7-Jul-198 8 


SEQ 165 


Page 
SPIDERSUSERS: [NEALE .AZTECICZRCH4. 816;2 97) 


COMMAND QUALIFIERS 
BLISS /PDP11/LIST CZRCH4.B16 
; :. 613 cogs + 0 data words 
ao Elapsed Time: 00:33.5 


pemet B Used: 386 pages 
; Compilation Complete 
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Saas 166 
CZRCHS CZRCH RC25 DISK FORMATTER 11-Jul-17 : VAX-11 Bliss-16 V3=555 1 
7=Jul-1 : SPIDERSUSERS : (NEALE .AZTECICZRCHS. 816;3°C (1) 


MODULE CZRCHS (RTITLE TCERCH RC25_DISK FORMATTER' 
ADDRESSING MODE (RELATIVE) , 
ENVIRONMENT ( 


= 
BEGIN 
Zsbttl "MODULE DECLARATIONS* 
Pretty Declarations 
i<bl f/Lowercase_key> 


library ‘CZRCHO'; 
require ‘BLSMAC.REQ'; 


t+ 
' A forwerd-reut ine=Gpc Lares ten declares a name to be a routine-name whose 
' definition is given later in the same block, and associates with that name the 


i 
: set of attributes needed for generation of call to the named routine. 
; 
t 


'Define RC25 Formatter library 
'Define Bliss Macro require file 


geagess 
OUnlWn—o 


SOUS 


So 
w 


i The following is a list of all routines declared within this module and can 
! be noted that this module is only place where global routines are declared. 


forward routine 
OAD_FILE, 'Load file from local load media 
ET_NSD, 'Get next send descriptor slot index 


POMOPOPIPONINONONIAD 


WWWWWWW 


el ee ee me ee me ek ee me ee ee ee ee ed ed ed ed ed ed ed ed od od td CS 


DUP PUSS TT IT 


GE 
LOAB_OUTSSTD_BUF , 
GET 1 CROSREF . 

DECODE : 
BUSI SERVICE T INT_LNKSTYP novalue, 


ex.8 DUST_STATUS, 


SEND DATA, 
REC_BATA, 
SET~CNTLR_CHAR, 


ON_CINE, 
INT$I_SERVICE : INT_LNKSTYP novalue, 
1S_TIMER 

BodT_rc25, 

INI T_COM_AREA; 


'<BLF /PAGE> 


'Get next receive descriptor slot index 
'Load out standing command buffer 

'Get unique command reference mmber 
'Decode return status error code 

'Dup/UQ port interrupt service routine 
'Command time out wait 

‘Abort Dup command 

'Get Dust Status command 

‘Execute Supplied Program command 

‘Execute Local Program command 

'Send Data — 

‘Receive Data command 

‘Set Controlter Characteristics command 
'On Line comman 

‘Initialization sequence interrupt service 
‘Initialization sequence time-out wait 
‘Initialize sequence for RC25 | BE 
‘Initialize UQ Port communication area 





CZRCHS 
REV A PATCH 00 


= 
DUDS PUPA I 


REESE 


PAPAIN & 
OWONAULWN-OVOOnou 


BUR ROO 
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Seas 167 
CZRCH RC25 DISK FORMATTER 11-Jul-19 : VAX-11 Bliss-16 V3-555 
MODULE DECLARATIONS 77-Jul-19 : SPIDERSUSERS: (NEALE .AZTECICZRCHS. Bi6. 3 9%) 
'¢ 

i The psect named "code or $code$'’ is redefinded here to be called "‘ac$code"’. 

a This is done to organize formatter routine code into a seperate psect. 


psect 
code = ac$code; 


'¢ 
i 5 peeeemeti declarations used within this module. 
structure 
x RC25 register accessing structure. This structure allows RC25 register 
! accessing to be transportable between the PDP-11 and VAX Diagnostic Supervisors. 
' This also defines an access algorithm for VAX to allow field reference 
: _to MBA address space without generating machine checks. 
rc25 CO, P, S, E] = 
begin 
local 
RCS$S_REG; 
RC$S_REG = .(RC25 + Zupval*0)<0, %bpval, 0>; 
RCES_REG 
end ~ 
<P, S, E>; 
!<bl f/page> 
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eee 168 
CZRCHS CZRCH_RC25 DISK FORMATTER 11-Jul-1983 16:06:44 VAX-11 Bliss-16 V3=555 3 
REV A PATCH 00 MODULE DECLARATIONS 7-Jul-1983 08:24:58 SPIDERSUSERS: (NEALE .AZTECIJCZRCHS. B16; = 3) 


'¢ 
External Declaration of datums declared outside of this module. 


external 
Communications area declarations 


ton AREA : blockvector CREC_ALLOCATE + an “vibeey + HDR_SIZ, 2, word], 
HEAD_AREA : ref block (4, word] field 

RECEIVE RING : ref blockvector CREC_A OCATEL 2, word] field (osc FIELD). 

SEND_RING : ref blockvector CSND_ALCOC OCATE. 2. word] field (DSC_F 

REC_ENVELOPE : blockvector CREC ORLLOCATE, R RB_SIZE . 5! word] O fteld- (ENV_FIELD), 

SND_ ENVELOPE : aeocaves tor CSND_ oo 12 vue word] field (ENV_FIELD), 

RET~EN ret SIZE 7 2, word] field (ENV_FIELD) 
5 btesk bie ECB Sige word] field (RECB_ FIELD); 

SND "BUF : vector CSNDB SIZE, word], 

oursst TO.BUF : blockvector CREC ALLOCATE, 2. word] field (OUTSFIELD), 


Miscellanious external data declarations 


EX FLAG : word, ‘Non-existent RC25 register flag 
'Next receive descriptor slot 
T : word, 'Next send descriptor slot 
: ret “RC2S field (ISD_FIELD), : Controller reg access struct 
US : 'Global return status location 
: vector "C2. word), iSaves program indicator field 
+RC25 interrupt vector address 
RSVD_S STRUCT: : "vector (4, word), 'Stores init seq, resvered fields 
ISD STRUCT : blockvector fa. 2: word] field CISD. FIELD) Init ecg oes oate 
UNIT_NO : word, P table unit number to forma 
NXT_CRN : byte, leven next cmd ref number 


Error Messages Structures 


bre STRUCT : vector [23] ‘Port fatal error aon st struct 
EMSG_STRUCT : vector [23] ‘Error message structure 
RC_STRUCTURE : vector (393, 'RC25 SA register fatal error 
SDUP_STRUCT : vector [7] 'DUP return status code messages 
bla nces STRUCT ¢ vector (13), 'MSCP return status code messages 
page 


Vuiw 
SELES 


SSeaNeaRENS 


ed a a a = os = 3 2) Ss Ss Ss FH YS VY SH HI 
“ww 


an 
—=— 
-o 
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SEQ 169 
CZRCH_RC25 DISK FORMATTER 11-Jul-1983 16:06:44 VAX-11 Bliss=16 V3=555 Page 4 
00 MODULE DECLARATIONS 7=Jul=1983 08:24:58 SPIDERSUSERS: CNEALE .AZTECICZRCH5.B16;3 (4) 


FMTS 


Be Se Be Ge Fe Ge Ge Ge Se Ge 8 Ge Ge SH Ge Ge Ge Ge Se Se Ge Sse 
mk kl te ek ad ed ed et od = 8d od ot = = 
DRAXAXAAAAAAAAAAAAASAAAAOO 

POPOPONPONOPUNINID 2 2 Oe 
WN —OVDONAOUSWN "SO VOONOULS wr 


WWWWP 


Formatted ascii strings 
PID_FMT, 'Progess indicator printing string 

14, 'Micro code version printing format 
i DM code parameter declarations 


i The following declarations are declared in module azkel6 ‘DM code 
!' module* and point to the starting address of specific DM code buffer areas. 


' (OVSA is declared in azkel2 and is a memory location however) 
i It is a hack but the azfmtr storage allocation must be edited in manually 


! any time the DM code buffer changes. Get this value from the output o 
! DMCONV program. (Bliss wants this allocation value to be a compile time constant). 


AZFMTR : vector (8892, word], 'RC25 formatter DM code buffer 
DSA, ‘Host DM code header address 

DMSA, 'Host DM code initial load address 
OVSA; ‘Host First overlay address 


CZRCHS 
REV A PATC 


Be Se Be Be Be Se Be Se Se Be Se Ge Se Fe Se Ge Se Be Se Be Ge Ge Be Be Ge Be Ge Be Be Ge Te Fe Se Ge Ge Ge Se Ge Ge Se Se Se Se Ge Be Ge Ge Ge Be Fe Ge Se Ge Be Se Ge Ge 


00 


owt esl 
ae 


AAO 
po ao 


Ww 
SOIR U RUN OO OONOME WOOO NO 


mee ed ed ed eed ad od = od = = 2 st I SS = 
ABARRARAAAARR EERE RRR 


SESSETETES 


Ann 
IN 
MNo— 


ot st a ot 
$$ Go GIN 
MEWN SO OBNOUSW 


o 
s 


SEee 
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SEQ 170 
CZRCH_RC25 DISK FORMATTER 11-Jul-1983 16:06:44 VAX=-11 Bliss-16 V3-555 Pa 
MODULE DECLARATIONS 77-Jul-1985 08:24:58 SPIDERSUSERS: LNEALE AZTECICZRCHS.B16; 3° (5) 
global routine LOAD_FILE (BUF_LOC, FN_EXT, BUF_SIZ) = Load file from local load maedia 


lee 

' Functional Description : 

This multi-purpose routine is used to read in files from the boot 
device into host memory space at the specified buffer address. 


Formal Parameters : 
This contains the host memory address where 
words read in from the boot device are to 
be loaded. 


FN_EXT This contains a pointer to an asciz string 
of the file name to be read in. 


BUF _S1Z This contains the number of words allocated 
for the buffer where the file is to be read 
in. This is used for protect against buffer 
over runs. 

Implicit Inputs : 
none 


Implicit Outputs : 
none 


Compietion Codes : 
FRE_CODE Is returned if the end-of-file indicator is 
not returned before the buffer is full. 


PAS_CODE Is returned if end-of-file indicator is returned 
before the buffer is full. 


Side Effects : 
Data provteusty loaded in the specified load buffer is 
destroyed by the incomming file from disk. 


begin 
local 
NEOF, ‘Return status from getword macro 
EOB; ‘End of buffer address storage 
OPEN (.FN_EXT); 'Open the file for input 
EOB = (.BUF_SIZ2*2) + .BUF_LOC; iCalculate the last buffer address 


'+ 

! Read the first block from the ineut file and through 
} it away since it only contains RI-11 information. 
incru i from 0 to 255 do 


n 
GE TWORD (BUF _LOC); 
end; 
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Ye 171 
CZRCHS CZRCH _RC25 DISK FORMATTER i at tS 16:06:44 VAX-11 Bliss=16 V3=555 6 
REV A PATCH 00 MODULE DECLARATIONS 7=Jul-1983 08:24:58 SPIDERSUSERS: CNEALE .AZTECICZRCHS. B16; = 5) 


' Loop on res a word from the > file. After 
' increment to the next word by adding %0'2" to the 
i buffer load addrss. Continue getting words until 
i the not complete indicator is returned (0) or the 
‘ buffer is over run. Return an error code if the 
; buffer is over run. 


do 


NEGF = = GETWORD (.BUF LOC); 'Read next word into .mem_loc 
~ LOC = .BUF_LOC + %0'2'; 'Increment to next word 


until. ( not .NEOF) or (.BUF_LOC eqlu .€0B); !Repeat until eof or buf overrun 
4 
: Return an error code if not eof (neof = 1) else close the file and return a pass code. 


SUSAR 


va -NEOF 'Was the eof indicator returned 
en 
' return RET_STATUS = FRE_CODE '‘Return error code to caller 
e 


—_ 
SNS SS 
ot ot I IO 


WONAUSWN—OvO 


'‘Eof was returned so close file 


wen RET_STATUS = PAS_CODE; ‘Return a pass code to the caller 
end; 


ed ed od a ot 2d 9 2 od YD 


> > > 


moe cance RC25 DISK FORMATTER 


COM.AREA 

SEND.RING, 

RET. -EN NSAD, REC. “BUF. SND. 

FLAG, NRD. SLOT. oe ay as ADDR 


ISD.STRUCT, UNIT. 
re. STRUCT, EMSG. STRUCT 
SDUP.STRUCT, SMSCP.STRUCT 
arte AZFMTR, HDSA, DMSA 


L LOAD.FILE mOULE DECLARATIONS 
-PSECT ACSCODE., 


LOAD.FILE:: 
JSR 8 

; FN.EXT,* 

; BUF.SIZ,* 

; BUF.LOC,* 








CZRCHS 
REV A PATCH 00 


: Routine Size: 
3 Maximum stack 


1720 


CZRCH RC25 DISK FORMATTER 


MODULE DECLARATIONS 


000377 
000016 


000016 
000001 


000002 
000001 
000016 


005001 
0000006 


0000006 


52 words, Routine Base: 
depth per invocation: 


6 words 


11 ‘tite 16:06:44 AX-11 Bliss-16 V3-555 oo it 
J ee 3 3 Vv = ss- 

7=Jul-1983 08:24:58 SPIDERSUSERS : [NEALE .AZTECICZRCH5S.B16; 39 5) 
RO,R3 3; *,E08 

R2.RO , 

86° 

2$ 

RO, (R2) : oe 

R1,4377 3 1.* 

_ ; BUF.LOC,* 

4$ 

RO,@16(SP) ; RO,BUF.LOC 

#1,R2 ; *,NEOF 

R2 3; NEOF 

#2,16(SP) ; *,BUF .LOC 

#1,R2 ; *,NEOF 

mali ; BUF.LOC,E08 

Re ; NEOF 


#5001 ,RO 
+ Sta eshtaaieny 


35 
RET.STATUS 
RO 
PC 

ACSCODE + 0000 
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SEQ 173 
CZRCHS CZRCH_RC25 DISK FORMATTER 11-Jul-1983 16:06:44 VAX-11 Bliss=16 V3-555 Page 8 
REV A PATCH 00 MODULE DECLARATIONS 7=Jul=1983 08:24:58 SPIDERSUSERS: CNEALE .AZTECICZRCHS.B16;3 (6) 


global routine GET_NSD = !Chooses the next send slot 


'e¢ 
! Functional Description : 
This routine will determine which send ring descriptor the port/controller 
is polling and returns that dsc slot number to the calling routine. 
This host program will call this routine each time it wishes to deposit 
another command into the command (send) ring. 
Formal Parameters : 
none 
Implicit ree 3 
NSD_SLOT : Global storage for the next send descriptor slot. 
Stores where the host should place this command for 
processing by the port/controller. 


yes 


Implicit Outputs : ‘ - 

The lobal storage ‘Nsd_slot’’ is updated to the 

present send slot where the port/controller is polling. 
Completion Codes : 

Returns the contents of ‘Nsd_slot’’ to the calling routine. 
Side Effects : 

none 


ey 
AANA 


begin 

: Increment the next send descriptor_slot by one 

NSD_SLOT = .NSD_SLOT + 1; 

: Set the slot pointer back to zero if it wraps around to the top of the ring. 


if .NSD_SLOT gtru SND_ALLOCATE - 1 then NSD_SLOT = ZERO; 
‘ 
Return the next send descriptor_slot to the caller 


return .NSD_SLOT; 
end; 


GET.NSD MODULE DECLARATIONS 
0000006 
NSD. SLOT 


0000006 000003 CMP 930 -SLOT #5 
0000006 NSD.SLOT 
0000006 : NSD.SLOT,RO 
PC 
3 Routine Size: 11 words, Routine Base: ACSCODE + 0150 
; Maximum stack depth per invocation: 0 words 


1760 
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SEQ 174 
CZRCHS CZRCH_RC25 DISK FORMATTER 11-Jul-1983 16:06:44 VAX-11 Bliss-16 V3-555 Page 
REV A PATCH 00 MODULE DECLARATIONS 7=Jul=1983 08:24:58 SPIDERSUSERS: [NEALE .AZTECICZRCHS.B16;3 (7) 


global routine GET_NRD = 'Chooses the next receive slot 


eo 
' Functional Description : 
This routine will determine which receive toy descriptor the port/controller 
is polling and returns that dsc slot number to the calling routine. This 
host program will call this routine each time it wishes to process another 
receive ring descriptor. 
Formal Parameters : 


none 
Implicit inputs : 
NRD_SLOT : Global storage for the next receive descriptor slot. 
Stores where the port should return this commands 
response indicator. 
Implicit Outputs : 
The global storage 'Nrd_slot’’ is updated to the present receive slot 
where the port/controller is polling. 
Completion Codes : ’ ‘ 
Returns the contents of ‘Nrd_slot’’ to the calling routine. 
Side Effects : 
none 


FANVSS 


begin 

: Increment the next receive descriptor_slot by one 

NRD_SLOT = -NRD_SLOT + 1; 

: Set the slot pointer back to zero if it wraps around to the top of the ring. 


SN adaddiaiiaiaad 
wi 


So Ne 


if .NRD_SLOT gtru REC_ALLOCATE - 1 then NRD_SLOT = ZERO; 
‘ 


Return the next receive descriptor_slot to the caller 


return .NRD_SLOT; 
end; 


o 
e 
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ee a te et ak a td td od ot ot = = I 


SSSFSHISIS 


-SBTTL GET.NRD MODULE DECLARATIONS 
005267 0000006 GET.NRD: : 
INC NRD.SLOT 


026727 0000006 000003 NRD.SLOT #3 
101402 1$ 

005067 000000G NRD.SLOT 
016700 0000006 1$: MOV NRD.SLOT RO 
000207 RTS PC 


3 Routine Size: 11 words, Routine Base: ACSCODE + 0176 
3: Maximum stack depth per invocation: 0 words 


CMP 
BLOS 
CLR 


1800 
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CZRCHS CZRCH_RC25 DISK FORMATTER 11-Jul-1983 16:06:44 VAX-11 Bliss-16 V3=555 Page 
REV A PATCH 00 MODULE DECLARATIONS 7=Jul=1983 08:24:58 SPIDERSUSERS: LNEALE AZTECICZRCHS.B16; 3. (8) 


global routine LOAD_OUTSSTD_BUF (REF_NUM) = !Load out$std_buffer with this command 


SEQ 175 
10 


‘ee 

: Functional Description : : 

! The outstanding command buffer ‘‘out$std_buf’’ is used by 
this host program to determine if an outstanding command 
issued to the pers has_ be processed yet. This is done 
by onagig"ns the receive _ *Rec_flg’ in a buffer slot 
for a'l' which is set by the interrupt service routine 
during response ring interrupts. 


Ss 


oe ee ee ee ee ee ee ee ee ee a a 


3s 


co 
QUFWN $OOBNOULSWN OO 


This buffer can be looked at as a window between the port 
driver receiving & processing the response envelopes and the 
host class driver issuing commands to the port. 


This routine loads into an empty out$std_buf slot the 
following values: 


9 09 Co CO Cd Co Oo C9 Co Co 
ed ed ed ed ed eed aed aed ed 


1. This commands reference number. 

2. Clears ‘rec_flg’ indicating this command is outstanding. 

3. Clears out the second word in slot where the returne 
envelope address will go. 


IMPORTANT NOTE: 
To quarentee a command loaded into the out$std_buffer will 
never be lost (i.e. having this routine return a buffer 
received by the interrupt service routine), 
er time out wait) routine is 


t 

at 

arenteed to return an unused 

out$std_buffer slot when this unique value of %0°100000° 

is found. To further quarentee this, unique command ref 
numbers will never use zero as a reference number. 


SSRRSRSRERS 


SARA IS 


Iw 


Formal Parameters : 
REF _NUM This is the unique reference number of this command set to the port. 


w 


NOUESWN $0 OD NOUSWN 0 OON 


Implicit Inputs : 
none 

Implicit Outputs : 
none 


Completion Codes : 
The out$standing buffer slot index where this command was put 
is routines value and is returned to the caller. 


Side Effects : 
none 


RRRLARESKKK 


begin 


tS SS a = SS Ss Ss a SS SS Ss Ss SS SS SS Ss SS SS SS VB Ss Ss SI FF VS SS FS SS SS SY SI HO SY SS SS SS SP HY YY YH SY YS 


op 00 09 Gd Cd Co Co Co 
MUMMY) 


'¢ 
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CZRCHS CZ7RCH RC25 DISK FORMATTER 11-Jul-1983 16:06:44 VAX=i1 Bliss=-16 V3=555 
REV A PATCH 00 MODULE DECLARATIONS 7=Jul-1983 08:24:58 SPIDERSUSERS : [NEALE . AZTECICZRCHS.8162 3% fa) 


1858 ! Search through the out standing command buffer and look for the first 
1859 i open slot. Return this first slot index to the caller if one is found. 

; Jf no open slots are found then return an error code. 

incru i from 0 to REC_ALLOCATE - 1 do !Find the first open slot 


An open slot is by definition the value %0'100000" in the slots first word. 


SESS TERES 


7 -OUTSSTD_BUF C.i, CMD_WRDJ eqlu %0°100000° !Is this slot open 


a 


be scrD BUF ; f-i sie a .FLG] = ark 'Clear the received flag 
OUTS$STD_BUF MD_REF] = F_NUM: !Load this cmd's ref num 
TSSTD_BUF C. i! EN NV “ADR] = HERO? iclear the previous env adr 
: ‘Return buffer index to caller 


ANNAN 
wr 


' The buffer is full if the code reaches here. This should never happen so 
report an error for debug purposes. 


return RET_STATUS = OBF_CODE; 'Report an ‘out$std buffer full’* error 
end; 


> 
0 G0 Go Go G0 G0 Go G0. G0. Go 
OnNOW 


Janow 


Be Be Se Ge Se Se Se Se Ge Ge Ge Se Se Ge Se Se Ge Se Ge Se Se Ge Se Ge Se 
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j 
1 
1 
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1 


Bes 


SBTTL LOAD. OUTSSTD.BUF MODULE DECLARATIONS 
0000006 LOAD. ourisD. BUF : 
Ri SSAVE2 3 
R1 s i 
1$: MOV R1,R0 : 1.* 
RO 


RO 
#QUTSSTD .BUF .R2 
(Re), #-100000 


$ 
#100000, (Re) : 
10(SP : REF .NUM,* 
outsst. Bar +2(RO) : 
R1,R0 ; Ie 


1 i 
91.45 : It 
#2001,R0 
RO,RET. STATUS 
PC 
: Routine Size: Routine Base: ACSCODE + 0224 


> Maximum stack Path oe invocation: 4 words 


1883 








I 14 


SEQ 177 
CZRCHS CZRCH_RC25 DISK FORMATTER 11-Jul-1983 16:06:44 VAX-11 Bliss-16 V3=555 Page 12 
REV A PATCH 00 MODULE DECLARATIONS 7-Jul=1983 08:24:58 SPIDERSUSERS : (NEALE .AZTECICZRCHS.B16;3 (9) 


global routine GET_CMDSREF = !Gets next unique cmd ref number 


ee 

' Functional Description : 

: A 32 bit unique non-zero number used to identify host commands. 
Class drivers should supply a unique reference number in each 
command that the send to a DUP server. A class driver may supply 
a zero reference number if it does not need to associate a command 
with its end message. 


SSSSEeERe 


020000 
BRA 


Command reference numbers must be unique across all commands that 
are outstanding on the same connection i.e., they must be unique 
across all outstanding commands issued by a single class driver 
(Host) to a single DUP server. The class driver may re-use a 
commands reference number when the command is no_ longer 
outstanding -- j.e., after rocotvng the commands end message or 
after re-synchronizing with the D server. Command reference 
numbers need not be unique for commands issued by different class 
drivers --- i.e. commands issued by different host or commands for 
diffeent DUP servers from the same host. Therefore controllers 
must internally use the combination of a command reference number 
and the connection on which the command was received as the unique 
identifier of an outstanding command. 


ed ed td a t= = 


See SoSeRsessses 


This routine will generate a unique command reference number and 
will search the out$standing command buffer to see if already uesd. 
The first unused unique command reference found will be -eturned 
to the calling routine. 


Formal Parameters : 
none 


Implicit ow : 
NXT_CRN This global location stores the next unique cmd 
reference number to be used. 


ODODODOOO0ON0O0O'O 
ed ed a ed ed ad dd od 
SCODBNOUSWN—O 


men 


Implicit a : 
NXT_CR This global location is loaded with the next 
unigue command reference number. 


Seseees 
ONAW 


fun 


Completion Codes : 
The contents of .NXT_CRN is returned to the calling routine. 


Side Effects : 
none 
begin 
local 


mee ee ee ee ee me ee ee ee a ed etd td od ot od 


Oo 
SS 


Increment the global unique command reference number before anything is done. 
NXT_CRN = .NXT_CRN ¢ 1; 
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CZRCHS CZRCH_RC25 DISK FORMATTER 11-Jul-1983 
REV A PATCH 00 MODULE DECLARATIONS 7=Jul-1983 


'¢ 
! Repeat generating and searching the cut$standing command buffer until a 
‘ unique command reference number is found. 


SEQ 178 
$:06:6 VAX-11 Bliss=16 V3=-555 


1 4 Page 1 
08:24:58 SPIDERSUSERS: CNEALE .AZTECICZRCH5.B16;3 (9) 


2 


do 
begin 
BR AK; 'Flag any operator control C's 


i Wrap this next command reference number ar 


ound 
: back to one if it is greater then 255 (decimal). 


if .NXT_CRN gtr 255 then NXT_CRN = 1; 
DONE = TRUE; 'Clear the all done indicator flag 


'¢ 

! Now search the out$std_buffer for this command 
! reference number. If not there then done eters 
' true and the loop will end else increment to the 
: next unique command ref number and make done false 
' 


BSSRRRRRASEELLEELE 
OWDNAVEWNO0BNOUEWIN 


to continue the Loop. 


incru i from 0 to REC_ALLOCATE - 1 do ‘!Search buffer for this cmd ref num 
4 -OUTSSTD_BUF C.i, CMD_REF] eqlu .NXT_CRN !Does it already exist 
en 


SSESFERES 


$3 


Wwr-9O0 


begin 'It already exists 
NXT_CRN = .NXT_CRN + 1; 'Try the next sequential cmd ref num 
DONE = FALSE; ‘Make code loop again 

eatttonps ‘Exit this incr loop 

end; 


ee me ed ed a nk a a a et os ss td nc 8 st os ss 4 8 SS SH YY) SH I OS 


ooon0ono 
rN 


end 
until .DONE; ‘Repeat loop until done 
‘ 
: Return the unique command reference number to the caller. 


return .NXT_CRN; 
end; 


-S8STTL GET.CMDSREF MODULE DECLARATIONS 
GET.CMDSRE, :: 
MOV R1,-(SP) 


NXT. CRN 

22 

#1,R1 

2s: TS$STD.BUF (RO) ,NXT.CRN 
NXT.CRN 

R1 

4$ 


SF 
no 


18: 


333 S835 
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11-Jul-1983 16:06:4 


RCH _RC25 DISK FORMATTER 
CHS CZRCH_RC25 DIS E yajut=1983 08:26:58 


CZRC 
REV A PATCH 00 MODULE DECLARATIONS 
3$: 


062700 000004 
oe0nes 000014 


4$: 


0000006 


3; Routine Size: 27 words, Routine paoee ACSCODE + 0316 


: Maximum stack depth per invocation: 3 words 


1984 


a 179 
VAX-11 Bliss-16 V3-555 


SPIDERSUSERS: (NEALE AZTECICZRCHS.B16; 3 9) 


*,! 1966 


I,* 





~ww™N 


CZRCH5 
REV A PATCH 00 


at a a 
$333 
wr 


Sssesgsessy 
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CZRCH_RC25 DISK FORMATTER 11-Jul-1983 16:06:44 VAX-11 Bliss-16 V3=555 Pa 
MODULE DECLARATIONS 7-Jul=1983 08:24:58 SPIDERSUSERS: [NEALE .AZTECJCZRCH5.B16; 5 


global routine DECODE : novalue = '‘Decodes failing SA reg data 


lee 

' Functional Description : 

4 Due to the implimentation of the DUP and UQ Port protocol there 
are two levels at which an issued command to a port/controiler 
can fail and they are: 


SEQ 180 
- 


1. The issued command can time out. 


2. An error can be posted in SA register bit 15 by the port to 
report an error. 


3. The issued command to the port/controller can be executed 
correctly without any errors but the response packet status 
field could have an error or status other than success posted. 


These errors or status's returned are all returned to the host 
routine which queued t command via the global storage 
RET_STATUS’. The host. to port/controller communications 
connection ~ odes the highest priority (ie. if the SA Reg error 
bit is set the DUP interrupt routine returns a PFE_CODE and this 
code is passed up to the calling host routine with out being 
intercepted by any routine on the way up). 


This routine will then be called when the return from a queued 

comes back with an error code or non successfull status 

code. _ 38 by definition when bit 0 in the returned status 
s equal to 1. 


An appropriate recovery action will be done for each individual 
error. 


Formal Parameters : 
none 
Implicit Inputs : 
RET_STATUS: Stored in this global storage is the returned error 
code 7 non-successful status code from a queued 
command. 


Implicit Outputs : 
none 

Completion Codes : 
none 


Side Effects : 
ALL formatter errors are igzel. therefor after execution 
of this routine the RC25 controller is initialized 
aborting any DM code running in the controller. 


begin 


local 
SA_VALUE; 'Save SA register fatal error code 


M14 


CHS CZRCH_RC25 DISK FORMATTER T1<Jul=19 


3 a a + 
CZR 83 16:06: VAX=-11 Bliss-16 V3-555 
REV A PATC'' 00 MODULE DECLARATIONS 7-Jul-1983 08 


1 ae 16 
08:24:58 SPIDERSUSERS: [NEALE .AZTECICZRCHS. 816;3 910) 


'¢ 


i Use the contents of "RET_STATUS" to select what type error or non=success ful 
; _Status code is to be processed. 


selectoneu .RET_STATUS of 
set 


i 
i "Communication area initialize’ error code 


not init the com area in the host memory after 


' 
i 
This error code indicates that the port did 
step 2 of the initialization sequence. 


CCIE CORE : 'Code equals %0'01° 


egin 
PRINT (.EMSG_STRUCT CMSG4]); 
end; 


1 
: ‘Port/Controller time out’’ error code 

Port/Controller timed out after the specified time out interval. 
CCTO_CODE] : !Code equals %0'11" 


egin 
PRINTB (.EMSG_STRUCT CMSG21)); 
end; 


' "Port fatal error’’ code 
' The error bit in the SA Register was set when examined in the DUPSI_SERVICE 
' routine. This error indicates a Port fatal error code. 


CPFE_ CODE] : !Code equals %0'21° 
egin 
SA_VALUE = .RC25_ADDR CRCSA, ERR_CODE]; 'Get error code from SA register 
Is the error code within the RC25 error code range, or is it 
; an generic, all controllers, error code? 
if .SA_VALUE gequ 200 
then 


begin 
PRINT (.RC_STRUCTURE £.SA_VALUE = 200)); 'RC25 error code range 
en 

else 


begin 
PRINTE (.PFE_STRUCT C.SA_VALUE)); !Generic error code 
end; 
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CZRCHS CZRCH_RC25 DISK FORMATTER 11-Jul-1983 1 
REV A PATCH 00 MODULE DECLARATIONS 7=Jul-1983 0 


: ‘Return status error’ code 


SEQ 182 
VAX-11 Bliss-16 V3-555 


6:06:44 Pa 17 
8:24:58 $PIDERSUSERS : [NEALE AZTECICZRCHS.B16; 3° (10) 


This indicates that a non-successful return status code was returned from an issued command. 


CRSE cones : 'Code equals %0'31' 
egin 
PRINT (.EMSG_STRUCT CMSGOJ); 
| Look at the UQPORT connection ID field to determine the type of response 


if .RET_ENSAD CCONN_IDJ eqlu DUP 
then 


poate 
Ne (.SDUP_STRUCT C.RET_ENSAD CSTATUSJJ); 
else 


begin 
PRINT (.SMSCP_STRUCT C.RET_ENSAD CSTA_CODEJ]); 
end; 


end; 
i Port Portocol violation” error code 
' A protocol violation error was detected during host processing of an issued command. 


CPVE_CODE] : 'Code equals %0'41'° 


ein 
— (.EMSG_STRUCT [CMSG1]); 
end; 


“Remote program died’’ error code 


a Sr Sr Sr rr Sr eS Sr rr ear Sear eter Ser eer eer ee ee ar ee 


BRUINS SSS TRG SEVSSNKARUNG AS SONAR SS OWNAAER WO SON 


This indicates that the remote progres running 

in the DM machine did not responded within the 
designated time out interval and that the progress 
indicator was not increase after subsiquent time out 
delays. It is assumed that the remote program is dead 
and is treated as a fatal error. 


CRPD_CODE] : 'Code equals %0°51° 


egin 
PRINTB (.EMSG_STRUCT [MSG2J); 


end; 
' 


"Port to host synchronious error’’ code 


CPSE_ CODE] : 'Code equals %0°61° 


egin 
PaINTE (.EMSG_STRUCT CMSG5]); 
end; 


POPOPONONONONONONONONPENENONPONUNNININUNINININNNNNNVNNNNUNVNNNNNNNVNNVNNNNNNNNNNTY 


kk kk ed dd dd od do 
MUMMIES BREE RREW 








CZRCHS CZRCH_RC25 DISK FORMATTER 
REV A PATCH 00 MODULE DECLARATIONS 


: "Message length error’’ code 


CMLE cope : 
egin 
PRINT (.EMSG_STRUCT CMSG6J); 
end; 


"Unknown end code’’ error code 


CUEC copes : 
egin 
PRINT (.EMSG_STRUCT CMSG7J); 
end; 


] 
: “Adaptor purge request’’ error code 


CAPR_CODE) : 


egin 
PRINTE (.EMSG_STRUCT CMSG8J); 
eng; 


"Unknown interrupt’ error code 


CUIN_CODE) : 


egin 
PRINTE (.EMSG_STRUCT CMSG9J); 
end; 


' 
: *“ATTENTION MSG ENDCODE’’ error code 


CATN cones : 


egin 
PRINTE (.EMSG_STRUCT CMSG12]); 
end; 

‘ 


: “COMMAND MSG ENDCODE"’ error code 


ROPQPIPININSPOAPDNPOPOPOPDPPYNDNUNDNI NIA DININIPINININAINININININININININNPNoNPynyonyunygd 
DDO D0.0 O09 009 G00 9 00 09 099 INI AANA PA RAAAAAR ARG 


thes CCMD_CODE] : 

5501 PRINTE (.EMSG_STRUCT [MSG13)); 
2202 end; 

2203 P s 

22 ' "SERIOUS EXCEPTION'’ error code 
$502 ! 

2207 CSEX_CODE) : 

2208 og n 

2209 PRINTB (.EMSG_STRUCT [MSG14]); 
2210 end; 


Be Se Se Se Ge Be Se Ge Se Se Ge Se Se Se Se Se Ss Ge Ge Se Ge Se Be Ge Ge Ge Ge Se Ge Se Se Ge Se Ge Ge Se Ge Se Se Ge Se Se Ge Ge Ge Se Se Ge Se Ge Gs Te He 


2211 ! 
2212 ! "INVALID COMMAND’ error code 


'Code equals %0'71' 


!'Code equals %0'101° 


'Code equals %0'201° 


'Code equals %0°301° 


'Code equals %0°401' 


'Code equals %0°501° 


'Code equals %0'601° 


see 183 
VAX-11 Bliss-16 V3-555 18 
SP IDERSUSERS: CNEALE .AZTECICZRCHS. Bi6, 3 9410) 


C 15 


Sa 1% 
CZRCHS CZRCH_RC25 DISK FORMATTER 11-Jul-1983 VAX-11 Bliss-16 V3=555 
REV A PATCH 00 MODULE DECLARATIONS 7-Jul-1983 SPIDERSUSERS: CNEALE .AZTECICZRCHS5. B16: 3 940)" 


t 
CIVC_CODEJ : 'Code equals %0'701' 


egin 
PRINT (.EMSG_STRUCT CMSG15J); 
end; 


i] 
“UNKNOWN MESSAGE TYPE’’ error code 


roronorornerrer 
MoroRoPonoforoerys 
A) ed ad ed od ed od 
SOVONOUSWw 


CUMT coved : 'Code equals %0°1001'° 
egin 
PRINTE (.EMSG_STRUCT CMSG16]); 


{ “UNKNOWN MESSAGE NUMBER’’ error code 


CUMN_CODE] : 'Code equals %0°4001° 


egin 
PRINTE (.EMSG_STRUCT CMSG19J); 
end, 


‘ 
: Out standing buffer slots are all filled up 


COBF_ CODE] : 'Code equals %0'2001" 


ne 
PRINTB (.EMSG_STRUCT (MSG17]); 


end; 
' 


: Out standing command buffer out of sync error 


COSE_CODE) : 'Code equals %0°3001' 


egin 
PRINTE (.EMSG_STRUCT CMSG18]); 
end; 


File read error from local load media 


CFRE cones : 'Code equals %0°5001° 
egin 
PRINTE (.EMSG_STRUCT [MSG20]); 


! 
Illegal FCT file length 


CILL_FCTJ : 'Code equals %0°6001' 


egin 
PRINT (.EMSG_STRUCT CMSG22]); 
end; 
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This is here to trap any unknow return status codes sent to this routine. 
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CHS CZRCH_RC25 DISK FORMATTER 11-Jul=1 


SEQ 185 
CZRCH 983 16:06:4 VAX-11 Bliss-16 V3-555 
REV A PATCH 00 MODULE DECLARATIONS 7=Jul-1983 08: 


244 Pa 
:24:58 SPIDERSUSERS: LNEALE -AZTECICZRCHS.B16; 3° (10) 


Cotherwise] : !'Code equals non of the above 


4 Me 

A ne (.EMSG_STRUCT CMSG3]); 
end; 

tes; 


1 
i ALL errors are fatal so init the RC25 and jump to the clean-up 
code section to abort this units format. 


RC25_ADDR CRCIP, RC_ALL] = ONES; ‘Init the controller 
WRT_RC25 (RCIP, ONES); 'Init the controller 
DOCEN; ‘Jump to the clean-up code section 


end; 


.SBTTL DECODE MODULE DECLARATIONS 
7 0000006 DECODE::JSR R1,$SAVE2 
C -(SP) ,=(SP) 
RET.STATUS,R1 
R1,41 


1$ 
EMSG. STRUCT+10,=(SP) 
#1,-(SP) 


° 


11$ 

R1,411 

EMSG. STRUCT+52,=(SP) 
#1,-(SP) 


RC25.ADDR,RO : 
(RO) .2(SP) : #,RC$S.REG 

(SP) -RO : RCS$S.REG, SA. VALUE 
#174000,R0 : *, SA. VALUE 
RO,#310 : SA.VALUE,* 


RO 
RC. STRUCTURE~620(RO) ,-(SP) 
#1,-(SP) 


Ns 
PFE.STRUCT(RO) ,~(SP) 
#1,-(SP) 


~~ Ms 
= n= 
COO 


000001 


sf 


000031 


SSsceeseesssesses 
FERENSHSSEKMANGSNS 
Ss 

S 


ag 
— 
Ps 
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ae 186 
CZRCH_RC25 DISK FORMATTER 11-Jul-198 : VAX-11 Bliss-16 V3=555 


CZRCHS 21 
REV A PATCH 00 MODULE DECLARATIONS 7-Jul-198 724: SPIDERSUSERS: [ENCE AZTECICZRCHS.B16;3°C (10) 


EMSG. STRUCT,=(SP) 
#1,-(SP) 

ated ; SP,* 
0000006 RET ENSAD,R2 
000003 000002 3(RO) #2 
000016 MOV 16(R2) .RO 


0000006 MOV SDUP. STRUCT(RO) , (SP) 
000001 #1,-(SP) 


0000006 
000001 


; RET.ENSAD,* 


14 


6% 
000016 : MOVB  16(R2),R2 
177740 #177740,R2 


0000006 SMSCP.STRUCT(R2) , (SP) 
000001 #1,-(SP) 


EMSG. STRUCT+2,-(SP) 
#1,-(SP) 


14 

24$ 

R1,451 

EMSG. STRUCT+4,=(SP) 
#1,-(SP) 


26$ 
R1,#61 


EMSG. STRUCT+12,=(SP) 
#1,-(SP) 


EMSG. STRUCT+14,-(SP) 
#1,-(SP) 


30$ 
R1 #101 


EMSG. STRUCT+16,=(SP) 
#1,-(SP) 


ane 








F 15 
CZRCH_RC25 DISK FORMATTER 11-Jul-17 : VAX=11 Bliss-16 V3=555 


ae 187 


CZRCHS 
REV A PATCH 00 MODULE DECLARATIONS 7=Jul=1 : SPIDERSUSERS: CNEALE .AZTECICZRCHS5. B16;3 (10) 
36 104414 14 
000576 : BR 33$ 
000201 : Bj gfeot 
0000206 EMSG. STRUCT+20,=(SP) ; 2177 
000001 #1,-(SP) 


2048 


33$ 2048 
R1 ,#301 


EMSG. STRUCT+22,=(SP) ; 2185 
#1,-(SP) 


14 
33$ ; 2048 
R1,4#401 


EMSG. STRUCT+30,=(SP) ; 2193 
#1,-(SP) 


33$ 2048 
R1,#501 


EMSG. STRUCT+32,=(SP) ; 2201 
#1,-(SP) 


33$ ; 
R1,4601 st 


EMSG. STRUCT+34,-(SP) 
#1,-(SP) 


33$ 

R1,#701 

EMSG. STRUCT+36,~(SP) 
#1,-(SP) 

33$ 

R1,41001 

EMSG. STRUCT+40,=(SP) 
#1,-(SP) 

33$ 

R1,4#4001 

EMSG. STRUCT+46,~=(SP) 
#1,-(SP) 


e 





CZRCHS 
REV A PATCH 00 


CZRCH_RC25 DISK FORMATTER 
MODULE DECLARATIONS 


6 248: 
002001 25$: 


0000426 
000001 


003001 
0000446 
000001 


G 15 


11-Jul-1983 48:06:66 
7-Jul-1983 08:24:58 


33$ 
R1,#2001 


EMSG. STRUCT+42,=(SP) 
#1,-(SP) 


33$ 

R1,#3001 

EMSG. STRUCT+44 ,=(SP) 
#1,-(SP) 


Poa 188 
VAX-11 Bliss-16 V3-555 23 
SPIDERSUSERS: CNEALE .AZTECIJCZRCHS. B16;3°C (10) 
° 2048 


2241 


2048 


2249 


33$ 2048 
R1,45001 


EMSG. STRUCT+50,=(SP) ; 2257 
#1,-(SP) 


Se 


33$ 2048 
R1 #6001 


EMSG. STRUCT+54 ,=(SP) ; 2265 
#1,-(SP) 


PER 


0 
0 
0 
1 


Se 
Sz 


33$ 
0000066 : EMSG. STRUCT+6,=(SP) 
000001 #1,-(SP) 
MOV sf =O ; SP,* 
177777 000004 : #-1,4(SP) ; *,RC$S.REG 
177777 #-1,RO ; *,RCSM.REG 
0000006 RO,@RC25.ADDR ; RCSM.REG,* 


4b 
000010 #10,SP 
PC 


Sscocsssse? 
rs a ad 

RSSSES 
flsareee 


3 Routine Size: 282 words, Routine Base: ACSCODE + 0404 
3 Maximum stack depth per invocation: 10 words 


2285 
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SEQ 189 
CZRCHS CZRCH_RC25 DISK FORMATTER 11-Jul-1983 16:06:44 VAX=11 Bliss-16 V3-555 Page 24 
REV A PATCH 00 MODULE DECLARATIONS 7-Jul-1983 08:24:58 SPIDERSUSERS: CNEALE .AZTECICZRCH5.B16;3 (11) 


global routine DUPSI_SERVICE : INT_LNKSTYP novalue = 'Signals receive queue entry 


ee 

! Functional Description : 

The transmission of a message will result in a host interrupt if and 
only if interrupts were armed suitably during initialization and one 
of the following conditions has been met: 


1. The message was a comnand with F=1 and the port's oe it 
caused the command ring to transition from full to not-full. 
hag tngerryet means that the host may place another command 

n the ring. 


The message was a response with F=1 and the port's depositing 
it caused the response ring to transition from empty to not- 
enoty. (This interrupt means that there is a response for 
the host to process.) 


as 


The port is interfaced to the host via a bus abapter and a 
command — the port/controller to re-access a given 
location during data transfer. (This interrupt means that 
the port/controller is requesting the host to purge the 
indicated chanel of the bus adapter.) 


Sesscr 


ie ee ce te oe te ee ee ee ee eee ee) 


This interrupt service routine is entered when any of the above 
conditions occure. When entered it will be determined what type 
interrupt was executed and take the necessary action. 


Formal Parameters : 
none 


Implicit Inputs : 
Nrd_slot: 


WWNWWWWAAWWWW 
eb ed ed ed ed ed ed aed ed aed 


A global flag which points to the next receive descriptor 
slot where the port/controller should be polling on and 
where to expect the first response packet to process. 


Implicit Outputs : 

Ret_status: This By mas flag is the mechinism by which these DUP 
and Port protocol routines pass status code back to 
to the host routine’s requesting communications over 
the established connections. The status returned is 
decoded by the caller to determine if an error or bad 
response packet status was discovered. 


Out$std_buf: This buffer is used to save all commands issued to the 
port and are considered outstanding when in this buffer. 

his interrupt service routine will indicate this command 

is nolonger outstanding by setting the rec_flg in the 

slot matching this response envelope command ref number. 


POPONIPONONONINSNONIND NOPONoNgNgNoNngngfynyny» 


Completion Codes : 
none 


Side Effects : 
none 
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CZRCHS CZRCH_RC25 DISK FORMATTER 11-Jul-1983 
REV A PATCH 00 MODULE DECLARATIONS 7=Jul-1983 


begin 


SEQ 190 
16:06:44 VAX-11 Bliss=-16 V3-555 Page 25 
08:24:58 SPIDERSUSERS: LNEALE AZTECICZRCHS.B16;3°(11) 


‘Holds nrd_slot + 1 reference 
'Found command flag 
'Stores response packets cmd ref number 


+ 

! Before this interrupt service routine does anything 
! look at the SA register for any port fatal errors 
! posted. If there are errors posted then report the 
: error and kick the bucket. 


7 -RC25_ADDR CRCSA, ERR_BITI 'Are there any errors posted 
en 


we) 
BRAAAAARAAAAR ERE EES 
=SOBNAUNEWN$O0DNOUEW 


begin 

RE? STATUS = PFE_CODE; 'Indicate the error type 

DECODE (); ‘Decode and print the error 

ree 'jJust for show. Decode will kill it 
end; 


'¢ 
' See what kind of interrupt got us here. 


POPOPoNofoNoPaRo Nao fongnonononononononofrernery 


SESES 


Bie 


SN NN 
CONAUEWI © ON 


t 
!' Wwe could have a: 


' 

4 1. Response ring transition interrupt. 
: 2. Send ring transition interrupt. 
i 


WW 
N 


3. A adaptor purge request interrupt (which is 
illegal enne under the PDP-11 Diagnostic 
supervisor and is 
error.) 

Or an unknown interrupt not known by this program 
which also results ina fatal controller error. 


WWW 
~“ 


flagged as a fatal controller 


WWW 
ANN 


Sees 


! Check to see if we get here because of a response ring 
! transition interrupt. This is more Likely to be the 
: most frequent interrupt so check it first. 


SESE 


if .HEAD_AREA CRSP_INT] 
then 


A A A A A CAO CCC A A frorore 
. 


<8 


begin 
Ge NRD (); 'Get the resp slot location to process 


' Check the host pretpcet for being out of sequence 
! with the controller by making sure that this slot 

is owned by the host (meaning that there is a resp 
! envelope at this ring slot to process. 


WWW 
© 


if .RECEIVE_RING C.NRD_SLOT, OWN_BIT) nequ HOST_OWNED Is this owned by host 





J 15 
Sane 191 
CZRCHS CZRCH_RC25 DISK FORMATTER 11-Jul-1983 16:06:44 VAX=11 Bliss=-16 V3-555 26 
REV A PATCH 00 MODULE DECLARATIONS 7=Jul=1983 08:24:58 SPIDERSUSERS: (NEALE AZTECICZRCHS. B16;39 11) 


then 
pegta ‘Host/port is out of sequence 
RET_STATUS = PSE_CODE; ‘Load a ‘Port sync error’’ code 
DECODE (); iReport the error and kick the bucket 
a 'Just for show Decode kills i 
end; 


: "per DUP protocol once interrupted due to a response ring 
! interrupt, the host code a qprocess “i response packets 
! found in the response ri ng. is while loop will continue 
! to process the response packets in the response ring until 
' none remain. 


_ do 'Process all response packets in ring 
BREAK: 'Look for control c's 

' Load the Reference structure ‘Ret_en$ad°’ with the address 

' of this response envelope to process (The minus %0°4' is 

! done to address the first word: in the savelane packet 

! and is equal to location ‘‘text-4°") 


RET_ENSAD = (.RECEIVE_RING c.e_net LO_ENSAD]) = %0°4'; 


+ 


Test the end packet for its possible three end types. 


End message apres cates called endcodes) are formed by adding the end 
message flag the command opcode. for example, a READ commands end 
message contains. the velue OP. RED” + OP.END in its opcode field. ie Invalid 
command end eoesage contains just the end maosage Teg Xs -@., OP.END) in 
its code field. The serious exception opcode s ve (i.e. OP.SEX + 
OP.END) in its opcode field. 


Commands opcode bits : le 7 indicate the type of message (command, end or 
attention qoceage. Command opcodes bits 3 wen 5 indicate the command 
catagory (immediate, sequential or no-sequential) and whether or not the 
command includes a buffer descriptor. 


See MSCP document appendix ‘‘A-1 NOTE:*’ for more information on this topic. 


selectensu eRET_ENSAD CTYPSMSG) of !Select the endpacket size 
se 


CENDSMSG] : 'Is this an end code packet 
begin 


'¢ 

' Select off of the endcode to make sure the communications 
! mechanism brane tered the correct number of byte for this 
! end packet. s number of bytes eransteres is not 
' correct for ie commands end packet then load the error 
! code into return’ status, call decode to report the 
! error and kick the bucket and die. This endcode is formed 
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by adding the end message flag %0'200° to the commands 
. opcode 
1 


eetoctense eRET_ENSAD CENDCODE] of 
se 
i 


: “RECEIVE DATA’ command end packet 


CEOP_RED] : 
Begin 


2 eRET_ENSAD CMSG_LENGTH] nequ ESZ_RED 'Is the byte count correct 


beg" srarye = MLE SOE: ‘Return a ‘message length error code”’ 
DECODE TReport the error and kick the bucket 
returns: ‘Just for show. Decode kills it 

end; 


end; 
‘ 


"SEND DATA’ command end packet 


CEOP_SED] : 
Begin 


i eRET_ENSAD CMSG_LENGTH] nequ ESZ_SED 'Is the byte count correct 


REY 3 STATUS = MLE 7fOOE: ‘Return a ‘message length error code"’ 
DECODE (); TReport the error and kick pe. bucket 
return; ijust for show. Decode kills it 
end; 
end; 


f 
¥ GET DUST STATUS"’ command end packet 
CEOP_GDS] : 
Begin 
iy eRET_ENSAD CMSG_LENGTH] nequ ESZ_GDS 'Is the byte count correct 
pegia SrATyS = MLE 7h ODE: ‘Return a ‘message Length error code" 
DECODE TReport the error and kick t @ bucket 
one M ijust for show. Decode itis’ 
end; 
end; 


' 
“EXECUTE SUPPLIED PROGRAM’ command end packet 
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CEOP_ESP] : 
Begin 
iy eRET_ENSAD CMSG_LENGTH] nequ ESZ_ESP 'Is the byte count correct 
en 
begin 
REY STATUS = MLE Theos ‘Return a ‘message length error code’ 
DECODE (); TReport the error and kick the bucket 
return; ijust for show. Decode kills it 
end; 
end; 
"EXECUTE LOCAL PROGRAM’ command end packet 
CEOP_ELP) : 
Begin 
i eRET_ENSAD CMSG_LENGTH] nequ ESZ_ELP 'Is the byte count correct 


~N 


REY 3 aplAtys = MLE_CODE; '!Return a ‘message length error code"’ 
DECODE (); TReport the error and kick the bucket 

> aha, 'Just for show. Decode kills it 

end; 


SSS 


end; 
t 
“ABORT PROGRAM’ command end packet 


POMIPIPOPINPINIPINOPONONIPaNaNaNaNaNoNyNanananononopofonsrorsrrnrn = 


vin 
& 


CEOP_ABT) : 
Begin 


i eRET_ENSAD CMSG_LENGTH] nequ ESZ_ABT 'Is the byte count correct 


REY 3 asrArys = MLE 7h ODE: ‘Return a ‘message length error code"’ 
ODE (); Report the error and kick the A ket 

return: ieee for show. Decode kills i 

end; 


rs 


MVM 
OONOW 


end; 
1 
“SET CONTROLLER CHAR'’ command end packet 


VMIMVIMUMUMIMIUA AU 


Fz 


CEOP seed 
Begin 


4 -RET_ENSAD CMSG_LENGTH] nequ ES2_SCC !Is the byte count correct 
en 


Heh th ah oh ah oh th ah oh th Oh th th Oh oh ah th th Oh th Oh th Ot 4 


begin 
REY STATUS = MLE_CODE; !Return a ‘message Lon ngth error code" 
DECODE (); TReport the error and kick the bucket 
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+ 'jJust for show. Decode kills it 
end; 


, end; 
"ON LINE’ command end packet 


CEOP_ONL] : 
Begin 


7 eRET_ENSAD CMSG_LENGTH] nequ ESZ_ONL 'Is the byte count correct 
en 


begin 

RET STATUS = MLE_CODE; !Return a ‘message length error code’ 
DECODE (); TReport the error and kick the bucket 

aes ‘Just for show. Decode kills it 

end; 


end; 


4 

! The ‘OP_END’’ end message flag all by its self tells 
' us that the controller is flagging us of an illegal 
! command sent over the connection. Error and kick the 
bucket. 


COP_END] : 

pegtn 

RET_STATUS = IVC_CODE; 

DECODE (); 

return; 

end; 
! The controller is toting us that a serious exception 
' has occured. Error and kick the bucket. 
CEOP_SEX] : 

Begin 

RET_STATUS = SEX_CODE; 

DECODE (); 

return; 

end; 


: Unknown end packet endcode type 


Cotherwise] : 


egin 
REY STATUS = UEC_CODE; ‘Return an “‘unknown end code"’ 
DECODE (); ‘Report the error and kick the bucket 
roqurns ‘just for show. Decode kills it 
end; 

tes; 
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The A ead genes «of sent the endpacket over the connection 
with out any butter ar Now find this commands owner in the 
out$standing buffer and indicate to them that the command 
has been received. 


' 

i 

i 

i 

i . 
ner NUM = .RET_ENSAD CCMD_LREFJ;  !Get this rec packets cmd ref number 
i 

i 

i 

i 

i 

i 


Search the outstanding command buffer for this commands 
reference number. 


If found, load the buffer location with the ret_en$ad 
and set the received flag to signify that this command 
has been received by this interrupt service routine. 


FOUND_CMD = FALSE; !Clear the found cmd flag 
incru i from 0 to REC_ALLOCATE = 1 do 'Search the buffer 
i -OUTSSTD_BUF C.i, CMD_REF] eqlu .REF_NUM 'Is this the comd ref 


be serD BUF C.i, REC_FLG] = TRUE; : Indicate command is received 
OUT$STD BUF C.i, ENV_ADR] = T_ENSAD; 'Return envelope adrs 
FOUND_CMD = TRUE; indicate it"was found 

ob ate ‘Exit the loop 

end; 


i If the search through the command ref 
' buffer failed to find this commands cmd 
! reference number then die. 


if not .FOUND_CMD 
then 


Rey 3 a PSE_CODE; 


tae Bl 
end; 


end; ‘End of END$MSG processing 


' 

i The set controller characteristics command 
' disabled the reporting of attentions messages 
so treat this as a fatal error and die. 


carreras? « ‘Attention end message type 


peg" seATys = ATN_CODE; 

DECODE 

ae'nee By 
end; 
' It doesn’t make any since for this end moceoge 
i packet not to have the end message flag adde 
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' to this command opcode as treat it as a fatal 
: error and die. 


CCMDSMSG) : 


begin 
RET_STATUS = CMD_CODE; 
DECODE (); 


return; 
end; 


' 
i This end code type is of unknown origin so 
: treat is as a fatal error and die. 
Cotherwised : 
egin 
RET STATUS = UEC_CODE; 'Unknown message type code received 
DECODE (); 
return; 


end; 
tes; 


i Before we leave put this receive envelope message length 
' field back to the envelope size, in bytes (Per UQ Spec). 
! This size does not include the 2 UQ's words preceeding the 
: command text area. 

RET_ENSAD CMSG_LENGTH] = RB_SIZE*2; 


i Return this receive slot descriptor back to 
: the port to fullfill my part of the protocol. 


RECEIVE_RING C.NRD_SLOT, OWN_BITJ = PORT_OWNED; 
i Look at the next response ring descriptor. If its 
! host owned then continue this process else exit the 
' loop. First see if the ring reference has wrapped 
: around to the top of the ring. 
4 -NRD_SLOT + 1 gtru REC_ALLOCATE = 1 ‘Has the ring ref wrapped around 
en 
TEMP = ZERO ‘Wrap it back to zero dsc slot 


else 
TEMP = .NRD_SLOT + 1; 'Look at the next seq dsc slot 


' 
Now see if the next receive descriptor slot is host owned. 


if .RECEIVE_RING C.TEMP, OWN_BIT) eqlu HOST_OWNED ‘Are we done yet 
en 
GET_NRD () 'Get the next resp desc to process 
s 
exitloop; 'No more to do so exit 
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end; ‘End of WHILE LOOP 


detected errors so return to the main host code with an pass 
return code. But before we go clear out the interrupt indicators. 


HEAD_AREA CRSP_INT] = ZEROS; 'Clear the interrupt indicator location 
HEAD_AREA CCMD_INTJ = ZEROS; ‘Clear out the indicator 

return RET_STATUS = PAS_CODE; iReturn a ‘pass code 

end; 


laeeekenakeareakeneeeeEND OF RESPONSE RING INTERRUPT PROCESSING**eeeneeeaaannneanete 


q 
ALL response ring descriptors have been processed with out any 
i 


+ 

A send ring transition interrupt could happen if at 
some — only one descriptor slot is allocated for 
commands. 


Clear the interrupt indicator if this is true and do 
a return with no errors. 


: 
; 
: 
: 
; 
' 
i 
4 eHEAD_AREA CCMD_INTJ 'Is this a com ring transition interrupt 
en 


begin 

HEAD. AREA CCMD_INT] = ZERO; ‘Clear out the indicator 
pouurng 'Continue on with the host code 
end; 


leeteeeeeeeeeeeeeeeeeeeeeEND OF COMMAND RING INTERRUPT PROCESSING**teeaneaenreeeanees 


+ 


heck to see if an adaptor purge is being requested 
y the port/controller in order to complete excution 
f a issued command. Remember that this is illegal 
uring PDP-11 formatting and is concidered to be a 
fatal error. 


C 
. b 
f) 
d 


4 -HEAD_AREA CADP_CH] nequ ZERO !'Is the an adaptor purge request? 
en 


begin 

RET STATUS = APR_CODE; 'Indicate the error code 

DECODE (); ‘Report the error and kick the bucket 
pecans 'Just for show. Decode kills it 

end; 


SaeaeekerekakakakakkaxexaxEND OF ADAPTOR PURGE INTERRUPT PROCESSING**exeeenaxacacaantanare 
6 

! The host program has been interrupted by an unknown interrupt 

: source if the routine program flow reaches here. 

i 
i 


Load the error code into return status and call decode to take 
appropriate action. 
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{ 

RET_STATUS = UIN_CODE; 
DECODE (); 

return; 

end; 


-SBTTL DUP$I.SERVICE MODULE DECLARATIONS 
viata” | mates 


(SP 
R5,-(SP) 

0000006 RC25.ADDR,RO ; 

000002 MOV 2(RO) ,=(SP) : #,RC$S.REG 

000021 0000006 #21, RET. STATUS 


0000006 : MOV HEAD. AREA,RO 
000001 000006 oa 


000550 


21$ 
176424 : PC,GET.NRD 
0000006 a Ae 


RO 
0000006 ADD RECEIVE .RING,RO 
100000 000002 #100000, 2(ROS 


4$ 
000061 0000006 : #61 ,RET. STATUS 
BR 16$ 


eb ond 


22 
NRD.SLOT RO 
RO 


RO 
RECEIVE.RING,RO 
(RO) RET .ENSAD 
#4, RET. ENSAD 
RET.ENSAD,R1 
14(R1) ,RO 

RO 


S8S8SSSS38 


ee RR eB ek tk ed at ed ts ed 


RO 
177776 #177774,R0 
000002 CMP RO,A2 
14$ 
R2 
000014 14(R1) 
MP R2,4 


0 
7 
04 
06 
14 
16 
20 
24 
26 
30 
34 
40 
46 
52 
56 
60 
62 
64 
66 
70 
72 
76 

2 


R2 
000205 205 


001 6$ 
021127 000060 : (R1) ,#60 


Sesecccssssesses 


SSnee 
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3 
000071 0000006 


000204 
000201 
000202 
000203 
000206 
000204 
000211 
000200 
000701 0000006 
000207 
000601 0000006 
000101 000000G 


0000006 
000004 


0000006 


100000 0000006 
0000006 0000026 
000001 
000004 
000014 
000001 


000001 
000401 0000006 


600501 0000006 


000074 0000006 
0000006 


10$ 
#71,RET.STATUS 
Sana 

R2,#201 

R2,#202 

5$ 

Ge Mees 
R2,4206 

ge fees 

R2,#211 

5$ 

ne eee 
#701,RET.STATUS 
R2,#207 
#601,RET.STATUS 
#101,RET.STATUS 
RET.ENSAD,RO 
gine Ae 

RO 

R1 

SYSSTO LAT CRG? LS 


12 
#100000 ,OUTSSTD.BUF (RO) 
as sENSAD, ,OUTSSTD.BUF +2(RO) 


15 
#401,RET.STATUS 
24$ 

RO 

8$ . 

SAO RET SATUS 
#74 ,@XET .ENSAD 
NRD. RO 


¢ 


RO 
RO 


Be Se Ge Se Se Se Se Ge Ge Se Te 
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0000006 
100000 000002 
0000006 


000003 


0000006 
60 000001 000004 
0 000004 


z Routine Size: 
* Maximum stack depth per invocation: 


2805 


0000006 
000003 
000201 0000006 


000301 0000006 
176010 


234 words, 


Routine Base: 
13 word 


F 16 


11-Jul-198 
7-Jul-198 


REC EIVE.RING,R 
#100000,2(R Ci 
NRD. SLOT .RO 


RO 
RECEIVE .RING,RO 
#100000, 2(ROS 


$ 
PC GET .NRD 
HEAD.AREA,RO 
6(RO) 


4(RO) 
RET.STATUS 


HEA" ,AREA,RO 
#1,4(RO) 


4(RO) 


25$ 
HEAD.AREA,RO 
3(RO) 


23$ 

Soy" MET SANS 
#301, RET.STATUS 
PC ,DECODE 


(SP)+,RO 


ACSCODE + 1470 
Ss 


3 
3 


1 
0 


6:06:44 
8:24:58 


AX-11 Bliss-16 V3-555 Poss —~ 
VAX- ss- 
SPIDERSUSERS: [NEALE .AZTECICZRCHS. B16; 3 11) 
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global routine CTO_WAIT (TO_VALUE, REF_NUM, BUFSLOC) = !Controller time out wait 


lee 
' Functional Description : 
This routine is called to wait for the port/controller to either 
lete the queued command or time out the command. 


comp 

Formal Parameters : 

TO_ VALUE Indicate the time-out interval for this command. 
This ar nt contains the unique reference number 

_ ned to this command being timed out by this 

routine. 

BUF SLOC This argument points to the out$std_buf location 
where this command is saved. At this location the 
received flag ‘‘rec_flg’’ bit is examined within the 
the timeout loop and when it equals true will 
signal that this command has been received by the 
interrupt service routine. 


Implicit Inputs : 


none 
Implicit Outputs : 

The command word in the out$std_buffer ‘word zero of a command 

slot’ is cleared out with the value %o'1 * to indicate this 

is an unused out$std_buffer slot and that it can be reused. 

Conpietien Codes : 
here are two levels of return. status returned by this routine. 

1. The DUP interrupt service returns to this routine a status code 
to indicate the success of the connection/communications mechanism 
to complete the queued command. If the port/controller does not 
time out then this return status is returned as this routines 
return status code. 

2. If the port/controller times out then the SA Register error bit 
is examined for the error bit set. If set then an port fatal 
error code is returned to the calling routine else a controller 
time out error code is returned. 

In all cases, if anerror code is returned (bit 0 = 1) then the 
routine decode is called to decode the error code and does the 
necessary recovery actions. 

At the next higher level of return from this routine is another level 
of return status returned. This level test the success of the 
connection and also test the status field in the returned response 
envelope for the success of the controller to successfully complete 

: the requested command. 
Side Effects : 
none 


begin 


+ 

' Before doing the timeout wait make sure that this buffer location 
' that we're suppose to time out actually contains the command ref 
! number that was sent to us via the formal argument. Error and 
: kick the bucket if not the same. 


a -OUT$STD_BUF C.BUFSLOC, CMD_REF] nequ .REF_NUM Is this the same ref_num 
en 


en oe 202 
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egin 
bey" STATUS = OSE_CODE; 'Indicate the error code 
DECODE <); ‘Call decode to report the error 


+ 
8 


one micro second delay for the number of times 

requested by the caller. After each ped see if the flag 
“rec_flg'’ has been set yet. Return ‘“Ret_status’’ and clear the 
command word to %0'10 to indicate’ this command has been 
received if this flag gets set before the timer expires. 
Return a error code if the timer expires before the flag gets set. 


seal - i from 0 to .TO_VALUE do !Loop for time-out_value 
DELAY (C_US); 'Do the one micro second delay 
| fate routine with the DUP interrupt service routines ‘‘ret_status’’ if 


rec_flg’’ got set before the timer expires. 
_stureste BUF C.BUFSLOC, REC_FLGJ] eqlu TRUE !Is this command received yet 


"begin. BUF C. Lee CMD_WRDJ = %0°100000°; 'Return the slot to the unused state 
a om TRET_STA ‘Return the interrupt service status 
en 


r 


' 

i Check the SA register for posted port errors just in case the 
port does not interrupt the host when a port error occurs. 

if .RC25_ADDR CRCSA, ERR_BIT] then return RET_STATUS = PFE_CODE; 
BREAK; 'Service any control C's 
end; 


' 
i The port/controller timed out if the code reached here. Return an error 
code to the caller and exit the routine. 
7 -RC25_ADDR CRCSA, ERR_BITI 'Is the SA error bit set 
en 
return RET_STATUS = PFE_CODE ‘Port timed out with fatal error 
se 
return RET_STATUS = CTO_CODE; 'Port just timed out 
end; 


~GLOBL LSDLY 


-SBTTL CTO.WAIT MODULE DECLARATIONS 
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000000 004167 0000006 CTO.WAIT:: 
JSR R1,$SAVE3 : 2806 
000004 162706 000006 SUB #6,SP 
000010 016600 000020 MOV 20(SP) RO : BUFSLOC,* 2861 
000014 006300 ASL RO 
000016 006300 ASL RO 
0 012703 0000006 MOV #OUTS$STD.BUF ,R3 
000024 060003 ADD RO,R3 
000026 005000 CLR 
000030 151300 BISB (R3),RO 
000032 020066 000022 CMP RO,22(SP) : *,REF.NUM 
000036 001405 BEQ 1$ 
000040 012767 003001 0000006 MOV #3001,RET.STATUS : 
000046 004767 175716 JSR PC ,DECODE : 2865 
000052 005002 1$: CLR R2 21 2877 
000054 000436 BR 10$ 
56 012701 000001 2$: MOV #1,R1 : *,$STMP2 2879 
000062 001411 3$: BEQ 4 
016700 0000006 MOV L$DLY,RO : *,SSTMP1 
000070 001404 BEQ 
000072 005066 000004 4$: CLR 4(SP) : SSTMP 
000076 005300 DEC RO + SSTMP1 
000100 001374 BNE 4$ 
000102 005301 5$: DEC R1 : SSTMP2 
000104 000766 BR 3$ 
000106 005713 6$ TST (R3) : 2885 
000110 100005 BPL 7$ 
000112 012713 100000 MOV #-100000, (R3) : 2888 
000116 016700 0000006 MOV RET. STATUS,RO : 2887 
000122 000427 BR 12$ 
000124 016700 0000006 7$: MOV RC25.ADDR,RO : 2897 
000130 016066 000002 000002 MOV 2(RO) ,2(SP) : *,RC$S.REG 
000136 100003 BPL 9$ 
000140 012700 000021 8$: MOV 4 RO 
000144 000414 BR 
000146 104422 9$: TRAP 38 
000150 005202 INC R2 i 1 2877 
000152 020266 000024 10$: CMP R2,24(SP) : 1,T0.VALUE 
000156 101737 BLOS $ 
000160 016700 0000006 MOV RC25. ADDR, RO : 2907 
000164 016016 000002 MOV 2(RO), (SPS + *,RC$S.REG 
000170 100763 BMI BS : 2909 
000172 012700 000011 MOV #11,R0 : 2911 
000176 010067 0000006 11$: MOV RO, RET. STATUS 
000202 062706 000006 12$: ADD #6,SP ; 2806 
206 000207 RTS PC 
: Routine Size: 68 words, Routine Base: ACSCODE + 2414 


3; Maximum stack depth per invocation: 9 words 


3 2914 
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global routine ABORT = !Aborts remote program 


'¢ 
i 


+ 


! Functional Description : 
$ The 


abort program command is used to terminate the execution of a 
remote program in an orderly fashion. When a successful response 
is received to this command the remote progres has stopped 
executing and the server is in idle state. te that the sending 
of this command does not preclude further send data or receive data 
exchanges: On the contrary, the remote program may be designed to 
send out termination status and possibly even ask questions durin 
its forced-exit sequence. The time out for this command is a fixe 

seconds and if a@ response is not received by then the 
connection to the dust should be terminated. This command is only 
legal if the dust is in active state. 


Formal Parameters : 
none 


Implicit Inputs : 
“s NSD. SLOT 


This global storage gets loaded by the routine 
*Get_nsd® and in it is stored the next send rin 

descriptor slot where the port/controller shoul 

be polling on and the place to put this commands 
command packet. 


Implicit Outputs : 
none 


Completion Codes : 


RET_STATUS: Return status passes back to the calling routine 
the status of the just issued command. 


Side Effects : 





Any remote program running in the controllers DM machine will 
be aborted. 


begin 


Local 
A ‘Stores unique cmd ref number 
ABO~BUF $LOC, ‘Stores out$standing cmd buffer location 
TEMP; ‘A place to put the read IP register data 


' Before we load up the command packet up with all this good information get 
: thenext send descriptor slot and a unicue command reference number. 


GET_NSD (); 'Get the next send desc slot 
REF_NUM = GET_CMDSREF (); !Get a unique command ref num 


i 
: UQ Port command envelope Header field definition 
SND_ENVELOPE [C.NSD_SLOT, MSG_LENGTH] = SZ_ABT; !Load the Length of envelope 


SND_ENVELOPE C.NSD-SLOT, CREDITS] = ONE; ‘Load credits 
SND_ENVELOPE [.NSD_SLOT, MSG_TYPE] = 0; ‘Load message type 


K 16 
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SND_ENVELOPE C.NSD_SLOT, CONN_IDJ = DUP; !Load connection ID 
; DUP command envelope fieid definition 


SND_ENVELOPE {.NSD_SLOT, M; !Define referance number 
SND_ENVELOPE [C.NSD_SLOT, J = ZERO; !Hi order ref number 
J eNSD_SLOT, SE RO; !Unused low order 
D_SL ; !Unused hi order 
'Load opcod 
'Reserved field 


OPCODE ¥ 

& RSVDJ = ZERO; 
NSD-SLOT, MODIFIER) = ZERO; 
! Call the load out$standing command buffer routine 
! and load this command into the buffer. The return 
! from this routine will point us to the buffer location 
! where this command is stored. Later we can look at 
! this location to see if the interrupt service routine 
! has received and process it. 


ABO_BUF $LOC = LOAD_OUTSSTD_BUF (.REF_NUM); !Load the command 
if .ABO_BUFSLOC eqlu OBF_CODE then DECODE (); ‘Error if buffer is full 


Set the ownership bit to 1 giving this slot to the port/controller 
SEND_RING C.NSD_SLOT, OWN_BIT] = PORT_OWNED; 

Read the IP register to stimulate port polling 

TEMP = eRC25_ADDR CRCIP, RC_ALLI; 

Time out the port/controller processing the command. 


The first test tests the connections ability to 
respond to this command without any errors in the SA 
register and for the command not timing out. 


The second tests the DUP server for good status. If 

bad status is sent back then an error code is returned 

to the calling routine where the routine ‘“‘decode’’ will 

decode and take the appropriate recovery. The time 

out routine will loop on delaying and checking the hi 

bit of the first word in the out$std_but for a true. 
When true signals us that the interrupt service routine 
has received the endpacket and no connection errors 

were detected. 


if CTO_WAIT (3000, .REF_NUM, .ABO_BUFSLOC) then DECODE (); !Is return an error 
i] 


' Get the return envelope address from the out$std_buf 
! at this commands buffer location and check the packet 
: for good status error and die if bad status was returned 


RET_ENSAD = .OUTSSTD_BUF [.ABO_BUFSLOC, ENV_ADR]; !Get the ret env adr 
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' 
: Now test for good status 


4 -RET_ENSAD CSTATUS] nequ ZERO 'Test the status 
1a 
return RET_STATUS = RSE_CODE ‘Return a ‘Response status err’’ code 


se 
return .RET_STATUS; !This ret status is good or bad 
end; 


-SBTTL ABORT MODULE DECLARATIONS 
JSR R1,$SAVE2 


0000006 

175312 PC,GET.NSD 

175454 PC.GET.CMDSREF 
MOV RO,R2 * ,REF .NUM 

0000006 NSD. SLOT,=(SP) 

000054 #34 =(SP5 


0000006 BLSMUL 
000014 0000006 MOV wide SND. ENVELOPE (RO) 
0000026 MOV #SND. ENVELOPE +2,R1 


REF .NUM, * 


SND. ENVELOPE+16(RO) 
R2, (SP REF .NUM,* 
175252 PC,LOAD.OUTSSTD.BUF 
° * ,ABO.BUF SLOC 
002001 a) He0ot : ABO.BUFSLOC,* 


BN 
175416 PC ,DECODE 
0000006 : po SLOT AO 


tM 
N 


0000006 ADD WD BING RO 

100000 000002 #100000. 2(RO) 

0000006 000004 MO @RC25. ADDR, 4(SP) ; *,RC$S.REG 
000004 ii SP) .R ; RC$S.REG, TEMP 
005670 #3670, (SP) 


n= (SP) : REF .NUM,* 
MO Ree =(S 3p) : ABO.BUFSLOC,* 
177356 sR PC‘CTO.WAIT 


(SP), (SP)+ 


SSSSSSaN 


=" 
SURO 


} 
175334 PC ,DECODE 
: aie ; ABO.BUFSLOC,* 


S= 
= 
oS 
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; Routine Size: 
; Maximum stack 


3 3040 


CZRCH RC25 DISK FORMATTER 
MODULE DECLARATIONS 


0000026 0000006 
0000026 


000031 

0000006 

0000006 3$: 
000006 4$: 


95 words, 


: Routine Base: 
depth per invocation: 9% words 


8 1 
a ot bs 16:06:44 
7=Jul=1983 08:24:58 


RO 
OUTSSTD.BUF +2(RO) ,RET.ENSAD 
resi. -BUF #2(RO) ,RO 


#31,RO 
RO,RET. STATUS 
RET. STATUS,RO 
#6,SP 


ACSCODE + 2624 


et 207 
VAX=-11 Bliss=-16 V3-555 42 
SPIDERSUSERS: CNEALE .AZTECICZRCHS. Bi6. 3? 13) 


3 3033 
: 3035 
s 2953 
; 2915 
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global routine GET_DUST_STATUS = 'Gets DUP server status 


2 4 


++ 

Functional Description : 
This command allows the host program to interrogate the DUP server 
to determine its caracteristics, its state and the state of the 
program currently running (if any). It is legal in either idle or 
active state and does not affect the state of server. It has a 
fixed timeout interval of 3 seconds. If the response times out, the 
host should break the connection. 


Formal Parameters : 
none 


Implicit Inputs : 

NSD_SLOT This global storage gets loaded by the routine 
*Get_nsd’' and in it is stored the next send rin 
descriptor slot where the port/controller shoul 
be polling on and the place to put this commands 
command packet. 


Implicit Outputs : 
none 
Completion Codes : 


RET_STATUS: Return status passes back to the caliing routine 
the status of the just issued command. 


' Side Effects : 


begin 


cocal 

7 al ‘Stores unique cmd ref number 
GDS BUFSLOC, ‘Stores out$standing cmd buffer location 
TEMP; ‘A place to put the IP read data 


Before we load up the command packet up with all this good information get 
the next send descriptor slot and a unique command reference number. 


ET_NSD (); 'Get the next send desc slot 
REF NUM = GET_CMDSREF (); 'Get a unique command ref num 


UQ Port command envelope Header field definition 


SND_ENVELOPE C.NSD_SLOT, MSG_LENGTH] = S7_GDS; ‘Load the envelope size 
D-ENVELOPE C.NSD-SLOT, CREDITS] = ONE; 'Load the credit size 

7 «NSD_ MSG_TYPE] = 0; ‘Load the message type (Sequential) 
SND_ENVELOPE C.NSD_SLOT, CONA_IDJ] = DUP; ‘Load the connection ID 


: DUP generic command envelope field definition 
SND_ENVELOPE C.NSD_SLOT, CMD_LREF] 


SND-ENVELOPE [C.NSD-SLOT, CMD_HREF J 
SND-ENVELOPE C.NSD-SLOT, UN_CUSEDJ 


i] 
i 
i 
G 


oREF _NUM; 'Load command reference number 
ZERO; !Command reference low order 
ZERO; ‘Low order unused 


D1 
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3098 SND_ENVELOPE C.NSD_SLOT, UN_HUSED] = ZERO; ‘!Hi order unused 

SND-ENVELOPE [C.NSD_SLOT, OPCODE] = OP_GDS; ‘Load opcode 
ENVELOPE C.NSD_SLOT, RSVDJ = cm ‘Reserved field 

SND_LENVELOPE eNSD_SLOT, MODIFIER] = ZERO; ‘Load modifier field 


' Call the load out$standing command buffer routine 

' and load this command into the buffer. The return 

' from this routine will point us to the buffer location 

' where this command is stored. Later we can look at 

' this location to see if the interrupt service routine 
has received and process it. 


i 
GDS_BUFSLOC = LOAD_OUTSSTD_BUF (.REF_NUM); !Load the command 
if .GDS_BUFSLOC eqlu OBF_CODE then DECODE (); ‘Error if buffer is full 


3 


Set the ownership bit to 1 giving this slot to the port/controller 
SEND_RING C.NSD_SLOT, OWN_BIT) = PORT_OWNED; 

: Read the IP register to stimulate port polling 

TEMP = .RC25_ADDR CRCIP, RC_ALLI; 

Time out the port/controller processing the command. 


The first test tests the connections ability to 
respond to this command without any errors in the SA 
register and for the command not timing out. 


The second tests the DUP server for good status. If 

bad status is sent back then an error code is returned 

to the calling routine where the routine ‘“‘decode”’ will 

decode and take the appropriate recovery. The time 

out routine will loop on delaying and checking the hi 

bit of the first word in the out$std_buf for a true. 
When true signals us that the interrupt service routine 
has received the endpacket and no connection errors 

were detected. 


PINMMNNNNINININD 2 2 9 2 OH ODOOOOOOOO 


WNW WWWWNANWANANWANWNAWANWNNANAAAAANAWA 
PWN 0 OONOAUSWA 0 ODNAU EWN OOD NOUSWN “OO ONOUESWN Oo 


me ee ce ee ee ce ee me me ee ee ee ee ed ee ed ed ed ed ed od od od = = 


Oe ee Oe ee ee em ee et te ta ee 


if CTO_WAIT (3500, .REF_NUM, .GDS_BUFSLOC) then DECODE (); !Is return an error 


i Get the return envelope address from the out$std_buf 
! at this commands buffer location and check the packet 
: for good status error and die if bad status was returned 
RET_ENSAD = .OUTSSTD_BUF C.GDS_BUFSLOC, ENV_ADR];  !Get the ret env adr 


Now test for good status 


WIWWIAIAIANIAIW AWN ANAAANAA AWN 
— —) os SS ws Ss ss SS os os a SS 
MUIVIUE BEERS RSW 


7 -RET_ENSAD CSTATUS] nequ ZERO 'Test the status 
en 
return RET_STATUS = RSE_CODE ‘Return a ‘Response status err’’ code 
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lse 
return .RET STATUS; 


end; 


0000006 
175014 
175156 


0000006 
000054 


'This ret_status is good or bad 


-SBTTL GET. DUST.STATUS MODULE DECLARATIONS 


GET.DUST. pelea | 


R1, SsAvee 
-(§P) 


PC,GET.NSD 
PC;GET. CMDSREF 


RO.R 
Nsb. SLOT, =(SP) 
*=(SP5 


BLSMUL 
pcié SND. ENVELOPE (RO) 


0000006 

000014 0000006 
0000026 #SND = ENVELOPE*2, oR1 
000001 #1, aa) 

000002 000001 #2,1(R1) 

0000046 R2,SND rat yt a REF .NUM,* 


0000126 

000001 0000146 
0000156 
0000166 

174754 

002001 


175120 
0000006 


SND. ENVELOPE+16(RO) 
R2, (SP) 

PC ,LOAD.OUT$STD.BUF 
RO,R1 

R1,#2001 

1$° 

PC ,DECODE 

NSD. -SLOT RO 


REF .NUM,* 


* ,GDS .BUFSLOC 
GOS.BUFSLOC,« 


0000006 ND.RING,RO 
100000 000002 #100000. 2(RO) 
0000006 000004 @RC25.ADDR,4 (SP) 
000004 aCSP). R 

006654 #6654, (SP) 
R2,~(SP) 
R1,-(SP) 
PC,CTO.WAIT 
sae amet 


; *,RC$S.REG 
; RC$S.REG, TEMP 


: REF .NUM,* 
: GDS.BUFSLOC,* 
177060 


2$ 
PC ,DECODE 
1 ; GDS.BUFSLOC,* 


175036 


Ssssnese 


RO 
OUTSSTD. BUF +g (RD) RET. ENSAD 
OUTSsTe- BUF +2(RO) ,RO 


g 


pooeose 0000006 


VETS 
sss 


oon 
Wil) 


3$ 
000031 #31,R0 
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: Routine Size: 
3; Maximum stack 


3159 


CZRCH_RC25 DISK FORMATTER 
MODULE DECLARATIONS 


0000006 
0000006 3$: 
000006 4$: 


95 words, 


: Routine Base: 
depth per invocation: 9 words 


MOV 
R 


MOV 
ADD 
RTS 


F 1 


11-Jul-1983 16:06:44 
77-Jul-1983 08:24:58 


RO,RET. STATUS 
RET. STATUS,RO 
#6,SP 


ACSCODE + 3122 


a 211 
VAX-11 Bliss-16 V3-555 


46 
SPIDERSUSERS : (NEALE .AZTECICZRCHS. B16;3°¢ (14) 


3072 
3041 
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global routine EX_SUP_PROG = ‘Executes supplied program 


‘ee 
' Functional Description : 

This command causes the server to transfer the program from host 
memory to an area in_ the controller and start its execution. The 
host supplies the address and ength (in bytes) of a buffer 
containing the program header and initial load; the starting 
of the program, its memory requirements and any relocation information 
needed to run under the server are in the program header in a format 
which is none of the host business. This commmand is only legal when 
the server is in the idle state and return of a successful end packet 
puts the server into to active state. 


g 


The time out interval for this command is 30 seconds. 
Formal Parameters : 
none 


Implicit Inputs : 

NSD_SLOT This global storage gets loaded by the routine 
*Get_nsd’® and in it is stored the next send — 
descriptor slot where the port/controller shoul 
be polling on and the place to put this commands 
command packet. 


Implicit Outputs : 
AZFMTR: Azfmtr is the vector produced by DMCONV program and 

is decalared in module AZKEL6. 

These three bound addresses point to specific area 

in the DM code buffer ‘azfmtr* and are used to 

define the buffer descriptors within this command. 


Completion Codes : 
RET_STATUS: Return status passes back to the calling routine 
the status of the just issued command. 


Side Effects: |. , 
The DM machine in the controller goes from the idle state to the 
active state on return of a successful return packet. 


so Co oo co ANNAN NN SY 


WWWWANWAAWNNWAWW NAWWWWNNNANANAAANANAAANANANA 


begin 


local 
EFL ‘Stores unique cmd ref number 
ESP~BUFSLOC, ‘Stores out$standing cmd buffer location 
TEMP; 'A place to put the read IP register data 


! 
i Before we load up the command packet up with all this good information get 
the next send descriptor slot and a unique command reference number. 


GET_NSD (); 'Get the next send desc slot 
REF NUM = GET_CMDSREF (); 'Get a unique command ref num 
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: UQ Port command envelope Header field definition 


éND_. ENVELOPE C.NSD_SLOT, MSG LENGTH] = $Z_ESP; ‘Load the message length 
SND-ENVELOPE C.NSD_SLOT, CREDITS] = ONE; ‘Load the credits fi eld 
SND-ENVELOPE [E.NSD_SLOT, TYPE 'Define the msg type ‘Sequential’ 
SND ~ENVELOPE NSD" SLOT, CONA_ID) = DUP; ‘Define the conection ID 


: DUP generic command envelope field definition 


SND. ENVELOPE C.NSD_ op CMD_LREF] = ry Alpes 'Load command ref number 
» CMD_HREFJ = ZERO; ‘Zero Hi order word of cmd ref 
‘Not used in DUP implimentation 
‘Not ee in DUP implimentation 
'Load the command op-code 
SLOT, RSVD] = ZERO; 'Not used 
SND “ENVELOPE C.NSD_SLOT, MODIFIER) = ZERO: 


Command specfic command envelope field definition 
Byte count of initial transfer (from bytes 0-3 of the program header). 
-AZFMTR CWRDOJ; !Byte count low word 


SND_ENVELOPE C.NSD_SLOT, BLO_CNT) = 
SND_ ENVELOPE C.NSD_SLOT, BHI_CNTJ = .AZFMTR CWRD1J; !Byte count high word 


' Buffer descriptor definition for initial load. First 
byte of this buffer is byte 0 of program header. 


SND. ENVELOPE C.NSD_SLOT, BPA_LO] = HDSA; 'Low unibus adrs <0-15> 
LO = 'Unibus adrs bits <16-17> 
'Q_bus extent ren adrs 
‘Reserved fie 
HAN] = * 7ERO: 'Unibus odanter channel aeier 
RsvO} = = ZERO; 'These next four words are 
RSV1J] = ZERO; used in the DUP ee leneutestan 
SND_ENVELOPE C.NSD_SLOT, $V34 = ZERO; 
PO ELOPE C:NSD~SLOT, Res) = ZERO; 


i These next field definitions are the same as above except they are for the 
! overlay buffer descriptors. To make life easy for me I‘Ll use the same names 
and just prefix them with a $ for uniqueness. 

The overlay area immediately follows the initial load image in the program image. 


SND_ENVELOPE C. NSD. mor. $BPA_LO) ; !Low unibus adrs <0-15> 
SND_ENVELOPE C.N LOT, $BPA_HI] = ZERO; 'Unibus adrs bits <16-17> 
SND_ENVELOPE C. NSD stor ; 'Q_bus extention adrs 
: ‘Reserved field 
: :Unibus adaptor channel number 
'These next four words are not 
ooee iused in the DUP implementation 


ND_E eNSD_SL : ; 
SND_ ENVELOPE [.NSD~SLOT, saove) = 2 = ZERO; : 


Call the load out$standing fernent buffer routine 
i and load this command into the buffer. The return 
' from this routine will point us . the buffer location 
i where this command is stored. Later we can look at 
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' this location to see if the interrupt service routine 
: has received and process it. 


ESP_BUFSLOC = LOAD_OUTSSTD_BUF (.REF_NUM); !Load the command 
if .ESP_BUFSLOC eqlu OBF_CODE then DECODE (); ‘Error if buffer is full 


! Set the ownership bit to 1 giving this slot to the port/controller 
SEND_RING C.NSD_SLOT, OWN_BIT] = PORT_OWNED; 

: Read the IP register to stimulate port polling 

TEMP = -RC25_ADDR CRCIP, RC_ALLJ; 

Time out the port/controller processing the command. 


The first test tests the connections ability to 
respond to this command without any errors in the SA 
register and for the command not timing out. 


The second tests the DUP server for good status. If 

bad status is sent back then an error code is returned 

to the calling routine where the routine ‘‘decode’’ will 

decode and take the appropriate recovery. The time 

out routine will loop on delaying and checking the hi 

bit of the first word in the out$std_buf for a true. 
When true signals us that the interrupt service routine 
has received the endpacket and no connection errors 

were detected. 


if CTO_WAIT (3500, .REF_NUM, .ESP_BUFSLOC) then DECODE (); !Is return an error 


i Get the return envelope address from the out$std_buf 
' at this commands buffer location and check the packet 
! for good status error and die if bad status was returned 
RET_ENSAD = .OUTSSTD_BUF C.ESP_BUFSLOC. ENV_ADR]; Get the ret env adr 


: Now test for good status 


bd -RET_ENSAD CSTATUS] nequ ZERO 'Test the status 
n 
return RET_STATUS = RSE_CODE 'Return a ‘Response status err’’ code 
se 
return .RET_STATUS; 'This ret_status is good or bad 
end; 


-SBTTL EX.SUP.PROG MODULE DECLARATIONS 
000000 004167 C00000G EX.SUP.PROG: : 
JSR R1,$SAVE2 


SEQ 214 
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CZRCHS 06: 
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3 16:06:44 

3 08:24:58 
=(SP) 

174516 PC,GET.NSD ; 3214 

174660 PC ,GET.CMDSREF $ 3215 


0000006 

000054 

0000006 

000050 0000006 
0000026 

000001 

000002 000001 
0000046 

0000066 

0000106 
0000126 

000002 000014G 
0000156 

000016 

0000006 0000206 
0000026 0000226 
sia 0000246 


0000526 
174336 
002001 
174502 


0000006 

100000 000002 
0000006 000004 
000004 

006654 


176442 


oR 
NSD. SLOT,=(SP) 
#54,-(SP) 


PC ,BLSMUL 
#56 SND . ENVELOPE (RO) 
#SND.ENVELOPE+2,R1 


RO,R1 
#1, bh 
#2,1(R1) 
R2, SND. ENVELOPE +4 (RO) 
Ss NVELOPE+6(RO) 


OPE+16(RO) 
TR,SND.ENVELOPE+20(RO) 
ATEMTRGS. SND. Sve Ors vee ne? 
#HDSA, SND. ENVELOPE +24 (RO) 
#SND. ENVELOPE+26,R1 


RO,R1 
(Ri) 
1(R1) 
SND. ENVELOPE+30(RO) 
SND . ENVELOPE+32(RO) 


+36(RO 
OVSA, SND .ENVELOPE+40(RO) 
Spe NEL OPE ONS oR1 


1(R1) 
=< - ENVELOPE +44 (RO) 


SND. ENVELOPE+52(RO) 
R2, (SP) 
PC.LOAD .OUTSSTD.BUF 
R1.#2001 


PC ,DECODE 
NSD. - SLOT ,RO 


D.RING,RO 
#100000. 2(RO) 
@RC25. ADDR, 4(SP) 
asp), R 
ea 


R1,-(SP) 
PC, cTO,WAIT 
(SP)+,(SP)+ 


* ,REF .NUM 


REF .NUM,* 


REF .NUM,* 


* ,ESP..BUF SLOC 
ESP.BUFSLOC,* 


* RCS$S.REG 


: RCSS.REG, TEMP 


: REF. 
: Pep OUFSLOC.* 
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RO 


2s 
174420 PC ,DECODE 
: — ; ESP.BUFSLOC,* 


RO 
0000026 0000006 OUTSSTD.BUF +2(RO) ,RET.ENSAD 
0000026 MOV OUTSSTD.BUF +2(RO) ,RO 
000016 16(RO) 


000031 #31,RO 
0000006 . RO,RET.STATUS 
0000006 3$: RET. STATUS RO 
000006 4$: #6,SP 


3; Routine Size: 135 words Routine Base: ACSCODE + 3420 
: Maximum stack depth per invocation: 9 words 


3326 
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global routine EX_LOC_PROG = ‘Executes local program 


ee 

! Functional Description : 

Receipt of this command causes the controller to search its local 
media for the named program, load and execute it. Receipt of a 
successful response by the host means that the program is executing 
and the server is in the active state. The time out value for this 
command is specified in the get dust response 


Formal Parameters : 
none 


Implicit Inputs : 

NSD_SLOT This global storage gets loaded by the routine 
*Get_nsd’ and in it is stored the next send rin 
descriptor slot where the port/controller shoul 
be polling on and the place to put this commands 
command packet. 


Implicit Outputs : 
none 


Completion Codes : 
RET_STATUS: Return status passes back to the calling routine 
the status of the just issued command. 


Side Effects : 
The DM machine in the controller goes from the idle state to the 
active state on return of a successful return packet. 


begin 
local 
‘Stores unique cmd ref number 


ELP~BUFSLOC, 'Stores out standing cad buffer location 
TEMP; 'A place to store the read IP register data 


Before we load up the command packet up with all this good information get 
the next send descriptor slot and a unique command reference number. 


ET_NSD (); 'Get the next send desc slot 
EF_NUM = GET_CMDSREF (); 'Get a unique command ref num 


UQ Port command envelope Header field definition 
SND_ENVELOPE He SLOT, MSG_LENGTH] = SZ_ELP; 'Load the message size 


‘ 
i 
i 
G 


SND~ ENVELOPE » = ONE; ‘Load the credit size 
SND_ENVELOPE = 0; ‘Define the msg typ ‘Sequential* 
SND~ENVELOPE puP; Define the connectio ID 


: DUP generic command envelope field definition 


SND_ENVELOPE [.NSD_SLOT, CMD_LREF = 


ad & a ‘Load the command ref number 
SND_ENVELOPE C.NSD_SLOT, CMD_HREF 


-REF_NUM; : 
ZERO: ‘Zero the Hi order cmd ref num 
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SND_ENVELOPE C. a SLOT, UN_LUSED ; !Not used in DUP implimentation 
SND_ENVELOPE C.NS SLOT, UN_HUS RO; '!Not used in DUP implimentation 
SND_ENVELOPE C. NSD SLOT, OP ELP; ‘!Load this commands op-code 
SND_ENVELOPE C.NSD_ SLOT. RSVD] = ZERO; ‘Not used field 

SND “ENVELOPE C.NSD_ “SLOT, MODIFIER] = ZERO: ‘Define modifiers for this cmd 


3 Command specfic command envelope field definition 


énp ENVELOPE C.NSD_SLOT, PN_OJ = ZERO; !Program name word 0 
SND_ENVELOPE C.NSD_SLOT, PN_1] = ZERO; !'Program name word 1 
SND “ENVELOPE C.NSD_SLOT, PN_2] = ZERO; !Program name word 2 


Cait the load out$standing ofomnend buffer routine 
! and load this command into the buffer. The return 
! from this routine will point us to the buffer location 
' where this command is stored. Later we can look at 
! this location to see if the interrupt service routine 
; has received and process it. 


ELP_BUFSLOC = LOAD_OUTSSTD_BUF (.REF_NUM); !Load the command 
if .ELP_BUFSLOC eqlu OBF_CODE then DECODE (); ‘Error if buffer is full 


! Set the ownership bit to 1 giving this slot to the port/controller 
SEND_RING C.NSD_SLOT, OWN_BIT] = PORT_OWNED; 

: Read the IP register to stimulate port polling 

TEMP = .RC25_ADDR CRCIP, RC_ALLI; 

Time out the port/controller processing the command. 


The first test tests the connections ability to 
respond to this command without any errors in the SA 
register and for the command not timing out. 


The second tests the DUP server for good status. If 

bad status is sent back then an error code is returned 

to the calling routine where the routine ‘‘decode’’ vit’ 

decode and take the appropriate recovery. The 

out routine will loop on delaying and checking the hi 

bit of the first word in the out$std_buf for a true. 
When true signals us that the interrupt service routine 
has received the endpacket and no connection errors 

were detected. 


if CTO_WAIT (3000, .REF_NUM, .ELP_BUFSLOC) then DECODE (); !Is return an error 


Get the return envelope address from the out$std_buf 
at this commands buffer location and check the packet 
for good status error and die if bad status was returned 


' 
i 
i 
i 
i 
RET_ENSAD = .OUTS$STD_BUF C.ELP_BUFS$LOC, ENV_ADRJ; Get the ret env adr 


CZR Yr H5 CZRCH_RC25 DISK FORMATTER 
REV A PATCH 00 MODULE DECLARATIONS 


»SBTTL EX.LOC.PROG MODULE DECLARATIONS 


; 3441 ! 
3 3442 ! Now test for good status 
3 3443 : 
; 3444 
; 3445 if .RET_ENSAD CSTATUS] nequ ZERO 
; 3446 then 
; 3447 return RET_STATUS = RSE_CODE 
; 3448 else 
3 3449 return .RET_STATUS; 
; 3450 
3 3451 end; 
000000 004167 0000006 EX.LOC. air We 
000004 005746 TST 
000006 004767 174100 JSR 
000012 004767 174242 JSR 
000016 0002 MOV 
0 016746 MOV 
000024 012746 000054 Vv 
000070 004767 0000006 JSR 
000034 012760 000060 0000006 MOV 
000042 012701 000002G MOV 
000046 060001 ADD 
000050 112711 000001 MOVB 
000054 112761 000002 000001 MOVB 
000062 010260 0000046 MOV 
000066 5060 000006G CLR 
000072 005060 000010G CLR 
5060 0000126 CLR 
000102 112760 000003 000014G 
000110 105060 000015 CLRB 
000114 5060 00001 CLR 
000120 005060 0000296 CLR 
000124 005060 22G CLR 
000130 5060 0000246 CLR 
000134 010216 MOV 
000136 767 174024 JSR 
090142 610001 MOV 
000144 020127 002001 CMP 
000150 001002 BNE 
000152 004767 174170 JSR 
000156 016700 000000G 1$: MOV 
000162 906300 ASL 
000164 ASL 
000166 066700 0000006 ADD 
000172 052760 100000 000002 BIS 
000200 017766 000000G 000004 MOV 
000206 016600 000004 MOV 
000212 012716 005670 MOV 
000216 010246 MOV 
900220 010146 MOV 
000222 004767 176130 JSR 
000226 022626 CMP 
000230 006000 ROR 


Nn 1 


11-Jul-1983 1 
7-Jul=1983 08: 


'Test the status 


VAX-11 Bliss-16 V3-555 
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‘Return a ‘Response status err’’ code 


!'This ret_status is good or bad 


RI .SSAVEZ 
-(§P) 


PC,GET.NSD 
PC,GET.CMDSREF 


NSD.SLOT,=(SP) 
#36, =(SP) 


BLSMUL 
WoO SND. ENVELOPE (RO) 
#SND-ENVELOPE*2, “RI 


RO.R 

#1,(R1) 

#2,1(R1) 

R2,SND. ENVELOPE 08 sO? 


SND.ENVE 

30 SANELOPE CES (RO) 
PC,LOAD.OUT$STD.BUF 
RO,R1 

R1,#2001 

1$° 

PC ,DECODE 

NSD. -SLOT,RO 


RO 
SEND. RING,RO 
#100000, 2(RO) 
aR 25. ADDR, 4(SP) 


? 

#5670, (SP) 
R2,-(SP) 
R1,-(SP) 


PC, CTO.WAIT 
(SP)+,(SP)+ 
RO 


* ,REF .NUM 


REF .NUM,* 


REF .NUM,* 


; *,ELP.BUFSLOC 


; ELP.BUFSLOC,* 


* ,RC$S.REG 
RC$S.REG, TEMP 


REF. 
EPP BUFSLOC.« 


3410 


3414 
3433 
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000232 
34 


304 
000310 


: Routine Size: 
; Maximum stack 


103002 
004 


3452 


CZRCH_RC25 DISK FORMATTER 
MODULE DECLARATIONS 


174106 
2s: 
000002G 0000006 
0000026 
000016 
000031 
0000006 
0000006 3$: 
000006 4$: 


101 words, ) 
depth per invocation: 


Routine Base: 
9 words 


MO 
ADD 


8B 2 
11-Jul-1983 16: 4 
7-Jul-1983 08:24:58 
es 
PC ,DECODE 
R1,R0 


RO 
OUTSSTD.BUF+2(RO) ,RET.ENSAD 
ths Hal “BUF +2(RO) RO 


#31,RO0 

+ Saaeahltahtca 
RET.STATUS,RO 
#6,SP 


ACSCODE + 4036 


Sean 220 
VAX-11 Bliss=-16 V3-555 55 
SP IDERSUSERS: [NEALE AZTECICZRCHS.B16; 3? (16) 


; ELP.BUFSLOC,* 3440 
, 3445 
; 3447 
; 3359 
; 3327 
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global routine SEND_DATA = 'Performs host-->port communications 


14 
' Functional Description : 

These commands are used to communicate between the initiating host 
program and the remote program. Both send and receive commands 
specify a host buffer descriptor and a byte count. In the case of 
send data, the information in the buffer is rea by the remote program 
and a send data response sent back to the host .o acknowledge receipt. 
In the case of receive data the remote program writes data into the 
buffer up to the amount specified by the byte count and then sends a 
receive data response to the host to notify it of the transmission. 


The send data and receive data commands are only legal when the 
server is inthe active state. If the remote program terminates 
abnormally, putting the server back in the idle stae, outstandin 

send data and receive data commands may be lost. In the event tha 

the specified timeout interval is exceeded, the host program should 
issue aget dust staus command to see if the remote pregren is 
still running (is. the dup server is active); if it 1s, the 
progress indicator should be remembered and the timeout interval 
should be re-installed. If the second timeout expires without a 
response and a second get dust status shows the remote program 
abe made no progress’ in the interim then the program should be 
considered broken and should be aborted. 


Formal Parameters : 

none 
Implicit Inputs : 

NSD_SLOT This global storage gets loaded by the routine 
*Get_nsd’ and in it is stored the next send rin 
descriptor slot where the port/controller shoul 
be polling on and the place to put this commands 
command packet. 


Implicit Outputs : 
none 
Completion Codes : 
RET_STATUS: Return status passes back to the calling routine 
the status of the just issued command. 


Side Effects : 
none 


begin 


local 
a 'Stores unique cmd ref number 
SND~ BUF $LOC, iStores out standing cmd buffer location 
TEMP; 'A place to put read IP register data 


' Before we load up the command packet up with all this good information 
! get the next send descriptor slot and a unique command reference number. 





D2 


ieee 222 
CZRCHS CZRCH_RC25 DISK FORMATTER 11-Jul-19 VAX-11 Bliss=16 V3-555 57 
REV A PATCH 00 MODULE DECLARATIONS 7-Jul-19 38 SPIDERSUSERS : CNEALE. AZTECICZRCHS.B16; 3 9017) 


Ger NSD (); 'Get the next send desc slot 
REF ~NUM = GET_ CMDSREF (); 'Get a unique command ref num 


i : UQ Port command envelope Header field definition 


éNp ENVELOPE C.NSD_SLOT, MSG eae SZ. SED; 'Load the message size 
SND-ENVELOPE [C.NSD-SLOT, CREDITS) = “ONE; ‘Load the credit size 

SND_ ENVELOPE LOT, MSG is) = 0; iDefine the message typ "Sequential 
SND_ ENVELOPE “NSD ~ SLOT, CONA_ID) = DUP; 'Define the connection ID 


3 DUP generic command envelope field definition 


SND. ENVELOPE E NSD sgt. CMD_ Laer? s REF deat 'Load command reference number 
MD_HREF ‘Zero Hi order cmd ref number 
'Not used in DUP implimentation 
‘Not used in DUP implimentation 
‘Load this commands op-code 
LOT, RSVDJ = 7E 'Not used field 
SND ~ ENVELOPE <NSD- SLOT. MODIFIER] = FERO: ‘Define the commands moditriers 


Command specfic command envelope field definition 


PAPA AA AAV 


WNWWWAWWAWAAAAAAAAA 
MMNMNNN—— 


ASW OO OONOUSWN oO 


: Byte count of transfer 


SND. ENVELOPE C.NSD_SLOT, BLO_CNTJ = SNDB_SIZE; 'Byte count low word 
SND_ ENVELOPE C.NSD_-SLOT, BHI_CNTJ = ZERO; 'Byte count high word 


i : Buffer descriptor definition 


én ENVELOPE C.NSD_SLOT, BPA_LO] = or BUF ; ‘Buffer physical adrs <0-15> 
BPA_HI] = ‘Buffer physical adrs bits <16-17> 
QBUS_EXT) : *7ERO: 1@_bus extention adrs 
js iReserved field 
i yatous adaptor channel number 
'These next four words are not 
‘used in the UQ Port implementation 


SD_SLOT, ; : 
SND_ “ENVELOPE C. NSD_ SLOT. : : 
Call the load out$standing command buffer routine and load this command 
! into the buffer. The return from this routine will point us to the buffer location 
i where this command is stored. Later we can look at this Location to 
: see if the interrupt service routine has received and process it. 
SND_BUFSLOC = LOAD_OUTS$STD_BUF (.REF_NUM); ‘Load the command 
if .SND_BUFSLOC eqlu OBF_CODE then DECODF (); ‘Error if buffer is full 
J 


Set the ownership bit to 1 giving this slot to the port/controller 
SEND. RING C.NSD_SLOT, OWN_BIT] = PORT_OWNED; 

| Read the IP register to stimulate port polling 

TEMP = .RC25_ADDR CRCIP, RC_ALLJ; 


WAWAANAWAAA 
VIMAMMAMUMAM MUI VII) 
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3 3567 
3 3568 t+ 
3 329) : Timc out the port/controller for the response from this command. 
: 3°71 i If the controller times out then: 
; 3572 ' 1. See what kind of error was returned. If the error 
; 35735 : is a type other than a CTO_CODE (controller time out) 
: 3574 ! then call routine Decode which does the appropriate 
3 $252 action based on the error. 
: 3577 i 2. If the returned error is an CTO_CODE then do a get 
3 3578 : dust status and check the progress indicator to look 
; 3579 : for an increase, indicating that the remote program is 
3 3280 still running and is not dead. 
: 3582 i If the indicator hasn't changed then assume that the 
3 3583 : remote program is dead and return an error code of 
; Sens RPD_CODE (remote program dead code) and exit. 
: 3586 i If the indicator has changed then assume that the 
3 3587 : remote program is still running, save a copy of its 
: 3588 : value and reinstate the controller time out delay and 
3 $350 : repeat the loop. 
: 3591 As long as the progress indicator in the remote program 
: so58 is still increasing this loop will be repeated for ever. 
: 3594 ' If the controller doesn't time then return with the return 
; 3595 ' code returned from routine CTO_WAIT () which could be either 
; $256 a success or error code by definition of this host code. 
: 3598 : 
3 3599 while TRUE do ‘Repeat for ever 
, 3600 ot he 
: 300) BR AK; 'Flag control C's 
F 3603 ' Do a controller time out and determine if the controller 
: sone : has processed the command or if a fatal error has occured. 
: 3606 ‘ 
; 3607 if CTO_WAIT (4000, .REF_NUM, .SND_BUFSLOC) 'Is return an error 
3 3608 then 
oe perm 
: 3611 i If the return status code eql's a CTO_CODE then see if the remote 
Z 3612 ! program is still ranmns If it is then save the progress indicator 
: ot : and repeat the loop else call routine Decode (). 
: 3615 
: 3616 if .RET_STATUS eqlu CTO_CODE 'Is this a controller time out 
3 3617 then 
; 3018 begin 
: e050 if GET_DUST_STATUS () then DECODE (); !Get the dust status 


3622 - -RET_ENSAD CPLO_IND] gtru .PID_SAVE (0) 'Any progress been made 
en 
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C0) . a hen PLO INDI: 'Still running save Pid 
PID-SAVE [1] rr ENSAD 

dies (PID_FMT, ene SAVE cis ; INP Ib. SAVE (03); 
en 


else 
as -RET_ENSAD CPHI_IND] gtru .PID_SAVE [1] 


= .RET_ENSAD CPLO_ Hd 'Still running save Pid 
PID-SAVE C1) = .RET_ENSAD CPHI_I 
PRIATS (PID_FMT, PID. SAVE he “Pb. SAVE (0)); 
en 
lse 
return RET_STATUS = RPD_CODE; '!No progress so flag error 


end 
else 


' The return status code was not a controller time out code so something 
else is wrong. Call the routine Decode () to find out what went wrong. 


DECODE () 
end 
else 
begin 
The command has been received by the interrupt service. 
i Get this commands return envelope address out of the 
' out$std_buf and check for good return status error and 
die if Bad status. 
RET_ENSAD = .OUT$STD_BUF C.SND_BUFSLOC, ENV_ADR]; '!Get the ret env adr 


Test for good status 


7 -RET_ENSAD CSTATUS] nequ ZERO 'Test the status 
return RET_STATUS = RSE_CODE ‘Return a ‘Response status err’’ code 
ny return .RET_STATUS; 'This ret_status is good or bad 
end; 
end; 
youre -RET_STATUS; !It won't compile without this here 


.-SBTTL SEND.DATA MODULE DECLARATIONS 
C000006 SEND.DATA:: 
JSR R1,$SAVE3 
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173566 

173730 

0000006 

000054 

0000006 

000034 0000006 
00000 


000045 0000206 
0000006 0000246 
0000266 


000001 
0000306 
000032G 
0000346 
0000366 
173452 

002001 


173616 
0000006 
0000006 

100000 000002 
0000006 000004 
000004 

007640 

175554 

0000006 000011 
176240 


173512 


1$: 


2$: 


G6 2 


11-Jul-1983 
7=Jul=-1983 


16:06:4 
08:24: $8 


PCSGET. NSD 
PC ,GET.CMDSREF 


Nsb. SLOT -(SP) 
=(SP5 


BLSMUL 
rai SND. ENVELOPE (RO) 
#5ND.ENVELOPE+2,R1 


#45,SND. 
pode “ENVELOPE +22 (RO) 

UF ,SND. ERVEL GPE SESIRD) 
SND: ENVELOPE *26 oR1 


(Ri) 

1(R1) 

SND. ENVELOPE+30(RO) 
SND. ENVELOPE+32(RO) 
SND . ENVELOPE +34 (RO) 
SND. ENVELOPE +36(RO) 
R3, (SP) 

PC .LOAD.OUT$STD.BUF 
RO,R2 

R2.#2001 

1$ 

PC ,DECODE 

NSD. ~SLOT,RO 


RO 
SEND .RING,RO 
#100000, 2¢RO) 
ances. ADDR, 4(SP) 
4(SP) ,RO 


2 e 

o7640. (SP) 
R3,-(SP) 
R2,-(SP) 
PC,CTO.WAIT 
(SP)+,(SP)+ 
RO 

8$ 
RET.STATUS,411 
PC,GET.DUST.STATUS 
RO 


3$ 
PC ,DECODE 
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3511 
3512 


* REF .NUM 3516 


a 
Ww 
w 
— 
N 


REF .NUM,* 3523 


PETE TETETECO TOE LELIEE IE 
ww 
w 
Nm 
NN 


Be See Oe Be eek 
Ww 
w 
& 


REF .NUM,* 3555 


* , SND .BUF $LOC 
: SND.BUFS$LOC,* 3557 


* ,RC$S.REG 3566 
; RC$S.REG, TEMP 


3600 
3607 
REF .NUM, © 
SND .BUF$LOC,* 


$ 3616 
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016701 0000006 3$: co oR1 
000024 24 (RO) .RO 
0000006 MP RO. »PID. SAVE 


0000006 MOV RO,PID.SAVE 
000026 0000026 26(R1) PID. »SAVE+2 


PID. SAVE *S =(SP) 
#PID.FMT,~(SP) 


OeSP) 
SP,RO ; SP,* 
14 


+ RET.ENSAD,* 


: PID.SAVE,* 


BR 5$ 
000026 0000026 : MP ial ePID. SAVE+2 


0000006 MOV RO,PID.SAVE 

000026 0000026 26(Rt) PID. SAVE+2 
P1b. SAVE+2,-(SP) 
#PID.FMT,-(SP) 


o= (SP) 
SP,RO ; SP,* 


#6,SP 
#51,R0 
BR 
173350 : PC ,DECODE 
BR $ 2 
Ree RO 3; SND.BUFSLOC,* 


> PID.SAVE,* 


RO 
0000026 000000G OUTSSTD.BUF +2(RO) ,RET.ENSAD 
0000026 MOV OUT$STD. BUF +2(RO) RO 
000016 16(RO) 


000031 #31,R0 

7 0000006 9$: a * RET. STATUS 
0000006 10$: RET. STATUS,RO 
000006 11$: + Sl 


; Routine Size: 176 words, Routine Base: _Mcacene + 4350 
: Maximum stack depth per invocation: 12 word 


3676 
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global routine REC_DATA = 'Performs host-=->port communications 


'ee 
' Functional Description : 

These commands are used to communicate between the initiating host 
program and the remote program. Both send and receive commands 
specify a host buffer descriptor and a byte count. In the case of 
send data, the information in the buffer is read by the remote program 
and a send data response sent back to the host to acknowledge receipt. 
In the case of receive data the remote program writes data into the 
buffer up to the amount specified by the byte count and then sends a 
receive data response to the host to notify it of the transmission. 


The send data and receive data commands are only legal when the 
server is inthe active state. If the remote program terminates 
abnormally, putting the server back in the idle stae, outstandin 
send data and receive data commands may be lost. In the event tha 
the specified timeout interval is exceeded, the host program should 
issue aget dust staus command to see if the remote progres is 
still runnin (is. the dup server is active); if it is, the 
progress indicator should be remembered and the timeout interval 
should be re-installed. If the second timeout expires without a 
response and a second get dust status shows the remote program 
aoe made no progress’ in the interim then the program should be 
considered broken and should be aborted. 


Formal Parameters : 

none 
Implicit Inputs : : 

NSD_SLOT This global storage gets loaded by the routine 
*Get_nsd’ and in it is stored the next send rin 
descriptor slot where the port/controller shoul 
be polling on and the place to put this commands 
command packet. 


Implicit Outputs : 
none 
Completion Codes : 
RET_STATUS: Return status passes back to the calling routine 
the status of the just issued command. 


Side Effects : 
none 


begin 

local 
REF _NUM ‘Stores unique cmd ref number 
REC~BUFSLOC, ‘Stores out atending cmd buffer location 
TEMP; 'A place to put read IP register data 


' Before we load up the command packet up with all this good information 
! get the next send descriptor slot and a unique command reference number. 


J2 
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Ger NSD (¢ 'Get the next send desc slot 
REF =NUM = ter CMDSREF (); 'Get a unique command ref num 


i ; UQ Port command envelope Header field definition 


éND_ ENVELOPE [.NSD_SLOT, MSG_LENGTH] = SZ_RED; 'Load message length 
NVELOPE C.NSD-SLOT, CREDIT TS} = ONE ; ‘Load credit size 
SD_SLOT, MSG_TYPE] = 'Define message type "Sequential’ 
SND_ENVELOPE C.NSD~ SLOT, CONN_IDJ = “DUP: iDefine connection ID 


jet generic command envelope field definition 


eNSD_SLOT, CMD_LREF] = .REF NUM; 'Load command > rae number 
‘Zero Hi order cmd ref n 
iNot used in DUP japl inentation 
‘Not used in DUP implimentation 
‘Load this commands op-code 
'Not used field 
= ZERO: ‘Define this commands modifiers 


Command spec fic coeiaail envelope field definition 
Byte count of transfer 


SND. ENVELOPE C.NSD_SLOT, BLO_CNT] = RECB_SIZE; 'Byte count low word 
SND_ ENVELOPE C.NSD_-SLOT, BHI_CNTJ = ZERO; ‘Byte count high word 


i . Buffer descriptor definition 


én ENVELOPE C.NSD_SLOT, BPA_LO] = REC BUF ; : Low unibus adrs <0-15> 
T Ij = 'Unibus aors bits <16-17> 
'Q_bus extent ion adrs 
iRéserved fie 
'Unibus edenter channel yo 
iThese next four words are 
a ;used in the UQ Port Lolseeenabtan 


SND_ENVE D_ 

SND_ “ENVELOPE C. NSD_SLOT, RSV3J = 7ERO: 

' Call the load out$standing command buffer routine and load this command 

i into the buffer. The return from this routine will point us to. the 

' buffer location where this command is stored. Later we can look at this 

secet ton to see if the interrupt service routine has received and process 
it. 

i 

REC_BUFS$LOC = LOAD_OUTSSTD_BUF (.REF_NUM); !Load the command 


if .REC_BUFSLOC eqlu OBF_CODE then DECODE (); ‘Error if buffer is full 


1 

Set the ownership bit to 1 giving this slot to the port/controller. 
SEND_ RING C.NSD_SLOT, OWN_BIT] = PORT_OWNED; 

Read the IP register to stimulate port polling 
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; 3791 TEMP = .RC25_ADDR CRCIP, RC_ALLI; 
; 3792 
3 3793 + 
: $ipe Time out the port/controller for the response from this command. 
: 3796 ' If the controller times out then: 
; 3797 ' 1. See what kind of error was returned. If the error 
; 3798 : is a type other than a CTO_CODE (controller time out) 
3 3799 ! then call routine Decode which does the appropriate 
3 sia action based on the error. 
: 3802 i 2. 1f the returned error is an CTO_CODE then do a get 
3 3803 : dust status and check the progress indicator to look 
3 3804 ‘ for an increase, indicating that the remote program is 
; 3805 still running and is not dead. 
: 3807 i If the indicator hasn't changed then assume that the 
$ 3808 : remote program is dead and return an error code of 
3 3008 RPD_CODE (remote program dead code) and exit. 
: 3811 i If the indicator has changed then assume that the 
3 3812 : remote program is still running, save a copy of its 
3 3813 : value and reinstate the controller time out delay and 
3 seie : repeat the Loop. 
: 3816 i As Long as the progress indicator in the remote program 
3 HH 4 is still increasing this loop will be repeated for ever. 
: 3819 i If the controller doesn't time then return with the return code 
3 3820 ! returned from routine CTO_WAIT () which could be either a success 
; $a55 ! or error code by definition of this host code. 
; 3823 ; 
3 3824 while TRUE do ‘Repeat for ever 
Z 3825 begin 
3 sa59 BREAK; ‘Flag control C's 
: 3828 i Do a controller time out and determine if the controller 
3 $08) : has processed the command or if a fatal error has occured. 
: 3831 , 
3 3832 if CTO_WAIT (4000, .REF_NUM, .REC_BUFSLOC) 'Is return an error 
3 3833 then 
CS pert 
; 3836 i If the return status code egl's a CTO_CODE then see if the remote 
5 3837 ' program is still running. If it is then save the progress indicator 
3 sa35 : and repeat the loop else call routine Decode (). 
; 3840 
$ 841 if .RET_STATUS eqlu CTO_CODE ‘Is this a controller time out 
3 842 then 
3 $atz begin 
: thee if GET_DUST_STATUS () then DECODE (); !Get the dust status 


3847 if .RET_ENSAD CPLO_IND] gtru .PID_SAVE (0) ‘Any progress been made 
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BB's SAVE [0] = RET. ENSAD CPLO_ IND}: 'Still running save Pid 
PID-SAVE [1] = .RET-ENSAD CPHI-I 
PRIATE (PID_FMT, .PID_SAVE tit ‘ ib. SAVE [0}); 


f »RET_ENSAD CPLO_ Het 'Still running save Pid 
PID-SAVE C1] = .RET-ENSAD CPHI_I 
PRIRTE (PID_FMT, .PID_SAVE th pe “Pb. SAVE (0]); 
en 
lse 
return RET_STATUS = RPD_CODE; !No progress so flag error 


end 
else 


i The return status code was not a controller time out code so something 
: else is wrong. Call the routine Decode () to find out what went wrong. 


DECODE () 
end 


else 


end; 


begin 

The command has been received by the interrupt service. 
Get this commands return envelope address out of the 
i 


out$std_buf and check for good return status error and 
die if bad status. 


RET_ENSAD = ,OUTSSTD_BUF C.REC_BUFSLOC, ENV_ADR];  !Get the ret env adr 
: Test for good status 


7 -RET_ENSAD CSTATUS] nequ ZERO ‘Test the status 
en 
return RET_STATUS = RSE_CODE ‘Return a ‘Response status err’’ code 
se 
return .RET_STATUS; 'This ret_status is good or bad 
end; 


return .RET_STATUS; !It won't compile without this here 


end; 


0000006 


-SBTTL REC.DATA MODULE DECLARATIONS 
REC.DATA:: 
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173026 
173170 


0000006 
000054 


0000006 
000034 0000006 
0000026 


000005. 0000146 


060 0000156 


0000166 

000170 0000206 
0000226 

0000006 0000246 
0000266 

000001 

0000306 
0000326 
000034G 


060 0000366 


172712 
002001 


2 
7? 173056 
0000006 


0000006 
100000 000002 
0000006 000004 


007640 


175014 


0000006 000011 
175500 


RI -SSAVES 
=(SP) 


PC,GET.NSD 

PC. GET. CMDSREF 

NSD. SLOT, =(SP) 
#36 =(SP5 


LSMUL 
waco SND. ENVELOPE (RO) 
#SND.ENVELOPE+2,R1 


RO,R1 
#1,(R1) 
#2,1(R1) 


R 
R3, SND. ENVELOPE+4 (RO) 
SND. ENVELOPE +6 (RO) 


PE+22(RO 

#REC.BUF , SND. ENVELOPE+24 (RO) 
#SND. ENVELOPE+26,R1 

RO,R1 

(Ri) 

1(R1) 

SND. ENVELOPE+30(RO) 

SND. ENVELOPE+32(RO) 

SND. ENVELOPE+34 (RO) 

SND. ENVELOPE+36(RO) 

R3, (SP) 

PC. LOAD. OUTSSTD.BUF 

Re. #2001 

PC ,DECODE 

NSD. ~SLOT,RO 


RO 

SEND.RING,RO 

#100000, 2(RO) 
ances. ADDR, 4 (SP) 

4(SP) RO 

#7640, (SP) 

7 (SP) 
R2.-(SP) 
PC.CTO.WAIT 
(SP)+, (SP)+ 
aS 
RET.STATUS #11 
PC .GET.DUST. STATUS 


3$ 
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3677 
3735 


; 3736 
; *,REF .NUM 


REF .NUM,* 


* ,REC .BUFSLOC 
REC..BUFSLOC,* 


; *,RC$S.REG 
; RCS$S.REG, TEMP 


: REF .NUM,* 
: REC.BUFSLOC,* 
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172752 PC ,DECODE 
0000006 3$: RET -ENSAD, oR1 
000024 24 (RO) ,RO 
0000006 CMP RO. PID.SAVE 


0000006 | RO. PID. SAVE 
000026 0000026 26(R1) ,PID.SAVE+2 


RO, 
0000026 MOV PID.SAVE+2,-(SP) 
0000006 #PID.FMT,=-(SP) 
000003 MOV #3,-(SP) 

aed ; SP,* 


+ RET.ENSAD,* 


: PID.SAVE,* 


BR 5% 
000026 0000026 : MP 26(R1) ,PID.SAVE*2 
0000006 MOV RO,PID. SAVE 
000026 0000026 26iR) PID. SAVE+2 
0000026 PID. SAVE+2,=(SP) 
0000006 #PID.FMT,=(SP) 
000003 MOV #3,-(SP) 
SP,RO ; SP,* 

000006 : #6,SP 

BR $ 
000051 : #51,RO0 

BR 9$ 
172610 : PC ,DECODE 

BR 2$ 


R2,R0 : REC .BUFSLOC,* 
RO 


: PID.SAVE,* 


RO 
0000026 0000006 OUTSSTD. BUF +2(RO) ,RET.ENSAD 
0000026 MOV OUTSSTD.BUF +2(RO) ,RO 
000016 16(RO) 


000031 #31,RO 
000000¢ 9$: RO,RET. STATUS 
0000006 10$: RET. STATUS RO 
000006 11$: ADD #6,SP 


3 Routine Size: 176 words, Routine Base: ACS$CODE + 5110 
; Maximum stack depth per invocation: 12 words 


3901 
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global routine SET_CNTLR_CHAR = 'Sets control characteristics 


'+4 
' Functional poser tet ion : 

The SET CONTROLLER CHARACTERISTICS command is used to set host 
settable unit characteristics and obtain those unit 
characteristics that are essential for proper class driver 
operation. This | ¢ never alters the unit's state 
C‘unit-online’’, ‘unit-available’’, ‘“‘unit-offline’). It is 
meaningless to set host settable characteristics for a unit 
that is ‘‘unit-available’’ or ‘‘unit-offline’’. 


Formal Parameters : 
none 


Implicit Inputs : 

NSD_SLOT This global storage gets loaded by the routine 
*Get_nsd' and in it is stored the next send Any 
descriptor slot where the port/controtler shoul 
be polling on and the place to put this commands 
command packet. 


Implicit Outputs : 
none 


Completion Codes : 
RET_STATUS: Return status passes back to the calling routine 
the status of the just issued command. 


Side Effects : 
Any previously defined controller characteristics will possibly 
be altered after execution of this command. 


begin 


local 
REF _ ‘Stores uni cmd ref number 
SCC~BUFSLOC, 'Stores out$standing cmd buffer location 
TEMP; ‘A place to put read IP register data 


! 
! Before we load up the command packet up with all this good information 
: get the next send descriptor slot and a unique command reference number. 


GET_NSD (); 'Get the next send desc slot 
REF NUM = GET_CMDSREF (); 'Get a unique command ref num 


UQ Port command envelope Header field definition 

SND_ENVELOPE [.NSD_SLOT, MSG LENGTH) = S2_SCC; 'Load message Length 
SND-ENVELOPE C.NSD_SLOT, CREDITS) = ONE; ‘Load credit size 

SND_ENVELOPE [C.NSD_SLOT, MSG TYPE] = 0; 'Define message type ‘Sequential’ 
SNDLENVELOPE C.NSD_SLOT, CONN_ID] = MSCP; !Define connection ID 


i MSCP generic command envelope field definition 


De SEQ 234 
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SND_ENVELOPE C.NSD_SLOT, C = REF _NUM; !Load command reference number 
SND ENVELOPE C.NSD-SLO = ZERO: !Zero Hi order cmd ref num 
T 'Not used in DUP implimentation 
'Not used in DUP implimentation 
oP 'Load this commands op-code 
eNSD_SLOT, RSVDJ = ZERO; 'Not used field 
eNSD_SLOT, MODIFIER] = ZERO; !Define this commands modifiers 


; Command specfic command envelope field definition 


SND_ENVELOPE C.NSD_SLOT, MSCP_VER]_= ZERO; !MSCP version 
SND_ENVELOPE C.NSD_SLOT, CTL_FLAGS] = ZERO; ‘Controller flags 
SND_ENVELOPE C.NSD_SLOT ST_TOV] = ZERO; !Host time out value 
RS$VB) = ZERO; 'Reserved 
0; ‘Time and Date word 0 
'Time and Date word 1 
'Time and Date word 
: !'Time and Date word 
SND eNSD_SLOT, : 'Cntlr dep parameter lo word 


SND_ENVELOPE C.NSD_SLOT, 'Cntlr dep parameter hi wrd 


' Call the load out$standing command buffer routine and load this command 

' into the buffer. The return from this routine will point us to the 

! buffer location where this command is stored. Later we can look at this 

: location te see if the interrupt service routine has received and process it. 


SCC_BUFSLOC = LOAD_OUTSSTD_BUF (.REF_NUM); !Load the command 
if .SCC_BUFSLOC eqlu OBF_CODE then DECODE (); ‘Error if buffer is full 


Set the ownership bit to 1 giving this slot to the port/controller 
SEND_RING C.NSD_SLOT, OWN_BIT] = PORT_OWNED; 

: Read the IP register to stimulate port polling 

TEMP = .RC25_ADDR CRCIP, RC_ALLJ; 

Time out the port/controller processing the command. 


The first test tests the connections ability to 
respond to this command without any errors in the SA 
register and for the command not timing out. 


The second tests the DUP server for good status. If 

bad status is sent back then an error code is returned 

to the calling routine where the routine ‘‘decode’’ will 

decode and take the appropriate recovery. The time 

out routine will loop on delaying gnd checking the hi 

bit of the first word in the out$std_buf for a true. 
When true signals us that the interrupt service routine 
has received the endpacket and no connection errors 

were detected. 
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if CTO_WAIT (3000, .REF_NUM, .SCC_BUFSLOC) then DECODE (); !Is return an error 
' 

i Get the return envelope address from the out$std_buf 

‘ at this commands buffer location and check the packet 

for good status error and die if bad status was returned 

RET_ENSAD = .OUTSSTD_BUF C.SCC_BUFSLOC, ENV_ADRJ; !Get the ret env adr 

; Now test for good status 


4 -RET_ENSAD CSTATUS] nequ ZERO !Test the status 
en 
return RET_STATUS = RSE_CODE ‘Return a ‘Response status err’’ code 
e 
return .RET_STATUS; 'This ret_status is good or bad 
end; 


-SBTTL SET.CNTLR.CHAR MODULE DECLARATIONS 
0000906 SET.CNTLR. CHAR: : 
JSR RI eSSAVE2 


=(§P 
172266 PC,GET.NSD 
172430 PC. GET. CMDSREF 
0000006 NSD. SLOT, =(SP) 
000054 #4 =(SP5 
0000006 BLSMUL 
000040 0000006 webs SND . ENVELOPE (RO) 
0000026 MOV #SND -ENVELOPE+2,R1 
#1.(R1) 
1(R1) 


R2, SND. ENVELOPE +4 (RO) REF .NUM,* 
NVELOPE+6(RO) 


SND. ENVELOPE 
SND. Evel oane 6(RO) 
NVELOPE+30(RO) 


SND.ENVEL 

SND. ENVEL 

SND ..ENVELOPE+40(RO) 

SND. ENVELOPE +42 (RO) 

R2, (SP) REF .NUM,* 
172160 PC;LOAD.OUTSSTD.BUF 
*, SCC .BUFSLOC 


RO,R1 
002001 R1,#2001 ; SCC.BUFSLOC,* 


sessesessseesssss 
SRASRENVSSENT VTS 
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4 
8 SPIDERSUSERS: [NEALE AZTECICZRCHS.B16;3° 19) 


BN 1$ 
172324 PC ,DECODE 
0000006 : MOV NSD. ~SLOT,RO ; 3993 


RO 
0000006 SEND.RING,RO 
100000 000002 #100000, 2¢RO) 
0000006 000004 MOV arc 25. ADDR, 4(SP) ; *,RC$S.REG 
000004 4(SP).R : RC$S.REG, TEMP 
005670 #3670, (SP) : 
-(§P) : REF .NUM 

st t3p) : S§CC. BuF$LOC, * 
174264 PC°CTO.WAIT 

(SP) +, (SP) + 


2s 
172242 PC ,DECODE 
: MOV a ; SCC.BUFSLOC,* 


RO 
0000026 0000006 OUTSSTD.BUF+2(RO) ,RET.ENSAD 
0000026 MOV OUTSSTD.BUF+2(RO) ,RO 

000016 16(RO) 


000031 #31,R0 
0000006 RO,RET. STATUS 
0000006 3$: MO RET.STATUS,RO 
000006 4$: #6,SP 


; Routine Size: 114 words, Routine Base: ACSCODE + 5650 
: Maximum stack depth per invocation: 9 words 


4035 
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global routine ON_LINE = !Makes a unit come online to a host 
' 


[++ 

! Functional Description : . 
The online command is used to bring a unit ‘“‘unit-online, set 
host settable unit characteristics and obtain those unit 
characteristics essential for proper class driver 
operation. The up if necessary, and is heads 
loaded prior to the online command's end 
settable character are set exactly as if 
characteristics command were issued. Host settable 
characteristics are set after the unit has been pusetes "sty spun-up 
and any other validity checks have succeded. Note that the unit's 
host Setegete characteristics are not altered if the unit is already 

-online’’. 


Formal Parameters : 


Implicit Inputs : 

NSD_SLOT This global storage gets loaded by the routine 
*Get_nsd’® and in it is stored the next send rin 
descriptor slot where the port/controller shoul 
be polling on and the place to put this commands 
command packet. 


Implicit Outputs : 
none 


Completion Codes : 
RET_STATUS: Return status passes back to the calling routine 
the status of the just issued command. 


Side Effects : 
Any previously defined controller characteristics will possibly 
be altered after execution of this command. 


begin 


local 
ye ‘Stores uni cmd ref number 
ONL “BUF $LOC, ‘Stores out$standing cmd buffer location 
TEMP; ‘A place to put read IP register data 


Before we load up the command packet up with all this good information 
get the next send descriptor slot and @ unique command reference number. 


ET_NSD (); 'Get the next send desc slot 
REF _NUM = GET_CMDSREF (); !Get a unique command ref num 


UQ Port command envelope Header field definition 
SND_ENVELOPE wee SLOT, MSG_LE TH) = S$Z_ONL; 'Load message length 


SND-ENVELOPE [.NSD-SLOT, CREDITS) = ONE; ‘Load credit size 
SND_ENVELOPE [.NSD_SLOT, MSG_TYPE] = 0; !Define message type ‘Sequential’ 


' 
i 
i 
G 
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SND ENVELOPE C.NSD_SLOT, CONN_IDJ = MSCP; !Define connection ID 
MSCP generic command envelope field definition 


SND. eat oo SLOT, CMD_LREF] = .REF_NUM 'Load command 2 ess number 
SND ENV “SLOT, CMD-HREFJ = ZERO; ‘Sero Wi order cad ref n 
T T_NUM] = .UNI NO; 'Select unit to Lah online 
J oe on 


* OPtoD : 
3 “SLOT. RSVD) = 
SND-ENVELOPE C.NSD-SLOT, RODIPIERT < RO; ERO: 


i . Command specfic command envelope field definition 


én ENVELOPE C.NSD_SLOT, RSV$DJ = = ZERO; 'Reserved 
~SLOT T 3 iunit. flag field 
‘Reserved field 
iReserved field 
‘Reserved field 
‘Reserved field 
‘Reserved field 
‘Reserved field 
2 RO: | te dependent re 
evice de en perene er 
SHADOW_UN = ZERO; Shadow unit 


» COPY_ SPEtD) = “ZERO; bm coeed 
Call the load Galeton command buffer routine 
' and load this command into the buffer. The return 
' from this routine will point us to the buffer location 
‘ where this command is stored. Later we can look at 
i this location to see if the interrupt service routine 
has received and process it. 
One -BUFSLOC = LOAD_OUTSSTD_BUF (.REF_NUM); !Load the command 
if .ONL_BUFSLOC eqlu OBF_CODE then DECODE (); ‘Error if buffer is full 
' 


; Set the ownership bit to 1 giving this slot to the port/controller 
SEND_ RING C.NSD_SLOT, OWN_BIT] = PORT_OWNED; 

Read the IP register to stimulate port polling 

TEMP = .RC25_ADOR CRCIP, RC_ALLI; 

' Time out the port/controller processing the command. 

i The first test tests the connections ability to 


! respond to this command without any errors in the SA 
! register and for the command not timing out. 


NONINININ — tt I Oo 
FWN 0 OOVNOUSWN—o 


! The second tests the DUP server for good status. If 
' bad status is sent back then an error code is returned 
! to the calling routine where the routine ‘‘decode’’ will 
! decode and take the appropriate recovery. The time 
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' out routine will loop on delaying and checking the hi 

i bit of the first word in the out$std_buf for a true. 
When true signals us that the interrupt service routine 
' 
i 


' has received the endpacket and no connection errors 
were detected. 


if CTO_WAIT (ONE_MINUTE, .REF_NUM, .ONL_BUFSLOC) then DECODE (); !Is return an error 


i Get the return envelope address from the out$std_buf 
' at this commands buffer location and check the packet 
: for good status error and die if bad status was returned 


RET_ENSAD = .OUTSSTD_BUF C.ONL_BUFSLOC, ENV_ADRI; 'Get the ret env adr 
Now test for good status 


i -RET_ENSAD CSTATUS] nequ ZERO 'Test the status 
hen 
return RET_STATUS = RSE_CODE 'Return a ‘Response status err’ code 
se 
return .RET_STATUS; 'This ret_status is good or bad 
end; 


-SBTTL ON.LINE MODULE DECLARATIONS 
004167 0000006 ON.LINE:: 
RI. SSAVE2 


005746 
004767 171722 PC, GET .NSD 
004767 172064 4% oGET. CMDSREF 


R 
NSD.SLOT,=(SP) 
#54,-(SP) 


PC .BLSMUL 
ocd SND. “ENVELOPE (RO) 
#SND ENVEL OPE+2,R1 


RO.R 

#1.(R1) 

1(R1) 

R2, SND. ENVELOPE +4 (RO) 
0000066 SND. ENVELOPE +6 (RO) 
000000G 0000106 . MOV 1T.NO, SND. zENVELOPE+10(RO) 


0000126 
oon Sg 0000146 


* REF .NUM 


REF .NUM,* 


RORONOS 


SSSeeesesess 


ofo 


SND. ENVELOPE +34 (RO) 
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SND ..ENVELOPE +36(RO) 


s 


SND 
SND. ENVELOPE +46(RO) 3 
R2, ; REF .NUM,* 
PC,LOAD.OUTSSTD.BUF 

. ; *,ONL.BUFSLOC 
31 Meow" 3 ONL.BUFSLOC,* 


BNE 
171746 PC ,DECODE 
0000006 -_° SLOT RO 


o 
io 


8 


oo 

w= 
epee 
ost 
NN 


SeSeere 
3s 


sae 


RO 
0000006 ADD SEND.RING,RO 
100000 000002 #100000, 2¢RO) 
0000006 000004 MOV @RC25. ADDR, 4(SP) : #,RC$S.REG 
4(SP) : RC$S.REG, TEMP 
165140 #12640, (SP) : 
R2,-(SP) : REF .NUM,*® 
R1.=(SP) : ONL.BUFSLOC,* 
173706 PC*CTO.WAIT 
MP (SP) +, (SP) 


SOCCOCOOO 
NO A ot a 


so 


2s 
171664 PC ,DECODE 
: R1,R0 


So 


; ONL .BUFSLOC,* 


eS 
= 


RO 
0000026 0000006 OUTSSTD.BUF+2(RO) ,RET.ENSAD 
0000026 MOV OUTSSTD.BUF +2(RO) ,RO 
000016 16(RO) 


000031 
0000006 


eagee 
sabessase 


#31,R0 
' RO,RET. STATUS 
3$: MOV RET.STATUS,RO 
4$: + Soll 


3; Routine Size: 119 words Routine Base: ACSCODE + 6214 
+ Maximum stack depth per invocation: 9 words 


0000006 
000006 


4176 
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REV A PATCH 00 


000000 012767 
000006 000002 
3; Routine Size: 
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global routine INTSI_SERVICE : INT_LNKSTYP novalue = 'Init sequence interrupt catcher 


'ee 

! Functional Description : 

During the initialization sequence the IE bit is defined to be 

a zero. This means that the host is not requesting interrupts at 
the completion of steps 1-3. 


Note that no initerrupt will be generated at the completion of 
step 4 since this step rquires only a small number of time. 


This interrupt service routine serves to catch any interrupts that the 
controller might issue during the initialization sequence. The 
interrupt is ignored and control is returned. 


This interrupt service routine is also used during the RC25 register 
existence test in determining whether P_Table RC25 registers exist. 


Formal Parameters : 
none 
Implicit Inputs : 
NEX_FLAG A flag which is loaded with zeros ering the RC25 register 
existence test and set to all ones by this routine in the 
event of attempts to read a non-existent RC25 controller. 
Implicit Outputs : 
NEX_FLAG Is returned with all ones in the event of RC25 non-existent 
register access attempts. 


Completion Codes : 
none 


Side Effects : 
none 


begin 

NER. FLAG = ONES; 'Indicate this interrupt occured 
Ae 

end; 


-SBTTL INTSI.SERVICE MODULE DECLARATIONS 
177777 0000006 INT$1.SERVICE:: 
ay #-1,NEX.FLAG : 


4 word Routine Base: ACSCODE + 6572 


ros, 
3; Maximum stack depth per invocation: 0 words 


4218 
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global routine IS_TIMER (SEQ_NO) = !Init sequence time out 


'e¢ 
' Functional Description : 
Steps 1-3 of the init sequence, each are required to complete within 
10 seconds. If any of these steps fails to complete within that period, 
this is to be treated as a host detected fatal error. 


This routine will do one us delays for a total of 10 seconds. After 
each delay the step field is examined to see if this init sequence has completed. 


Formal Parameters : 
SEQ_NO: Indicated which init step is presently being performed within the RC25 init sequence. 


Implicit Inputs : 
none 
Implicit Outputs : 
none 
Completion Codes : 
TRUE: Indicates to the calling routine that the indicated init sequence step has timed out. 


FALSE: Indicates to the calling routine that the indicated init sequence 
step has not timed out. 


Side Effects : 
If the init sequence step times out and an error is posted in the sa register 
then the routine decode will be call. 


begin 
local 
TO_VALUE : word, 'Step time out value 
STEP_VAL : word; 'Temp storage of step value 
STEP_VAL = ZERO; 'Make sure the loc is zeroed out 
Select the step value expected from this init sequence step. 
notectenty -SEQ_NO of ‘Select the binary step value 
se 
(0) : 
begin 
st P_VAL = %b°0001'; 'Step 1 binary value 


O_VALUE = 20000; ‘Timeout step one for 60 seconds 
end; 


be in 

STEP VAL = %b°0010"; (teem 2 binery voles 

TO_VALUE = 5000; ‘Timeout step two for 10 seconds 
end; 


L 3 


CZRCHS CZRCH_RC25 DISK FORMATTER 11-Jul-1983 1 
REV A‘PATCH 00 MODULE DECLARATIONS 7=Jul-1983 0 


C2) : 

begin 

STEP VAL Fb 0100"; 'Step 3 binary_value 
000; 


t 
TO_VALUE ‘Timeout step 3 for 10 seconds 
end; 


:06:4 


SEQ 243 
6: 4 VAX-11 Bliss-16 V3=-555 
8:24:58 S 


Page 78 
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STEP_VAL = %b°1000°; 'Step 4 binary valuc 
TO_VALUE = 5000; ‘Timeout step 4 for 10 seconds 
end; 
tes; 
i . 
' Loop on the 100 micro second delay until either the expected step field 
is read in the SA register or the step times out. 


neat TIM_OUT from 0 to .TO_VALUE do 'Loop on C_US delay's 

egin 

DELAY (C_US); 'Do the delay 
i Check the step bit to see if it is set yet. If it is set then return 
: a false indicating the completion else continue delaying. 
if .RC25_ADDR CRCSA, STP_FIELD] eqlu .STEP_VAL then return FALSE; 
BREAK; 'Service any control C's 
end; 


it 

! This step has not completed within the specified time interval. Test 
! the sa register for any errors posted and report errors if any. Return 
a true to the caller indicating the error. 


if -RC25_ADDR CRCSA, ERR_BITI 'Is the error bit set 
en 


Soran ces 


begin 
REY STATUS = PFE_CODE; ‘Indicate the port/fatal error code 
DECODE QO; ‘Report the error 

end; 


-—Ooon 


A va TRUE; ‘Return a failure to the caller 
end; 
-SBTTL IS.TIMER MODULE DECLARATIONS 
IS.TIMER:: 
JSR R1,$SAVES 
#6,SP 


R ; STEP.VAL 
qq (SP) RO ; SEQ.NO,* 


012702 000001 #1,R2 ; *, STEP.VAL 
012703 047040 #47040,R3 : *, 10. VALUE 





CZRCHS 
REV A PATCH 00 
000423 
020027 
001003 
1270 


1 
020027 
001003 
012702 

05 


BEEEEEEEDE 
SEUERRBSNS 


z Routine Size: 
: Maximum stack 


4322 


CZRCH RC25 DISK FORMATTER 

MODULE DECLARATIONS 

000001 1$: 

000002 

000002 2$: 

000004 

000003 3$: 

000010 

011610 4$: 
5$: 

000001 6$: 
7$: 

0000006 

000004 8$: 


9$: 


0000006 
000002 000002 
000002 
177760 


0000006 
000002 


0000006 


ooo0e! 
171352 
000001 


83 words, Routine Base: 
depth per invocation: 10 wor 


12$: 


13$: 
000006 14$: 


m 3 
11-Jul-1 
7 


5$ 
RO,#1 


#2 ,R2 
RO,#2 
$ 
#4,R2 
RO,#3 
5$ 


#10,R2 
#11610,R3 
R4 


7$ 
RC25.ADDR,RO 
Sy Te eal 


R2,R 
2(SP),RO 
RO 


RO 
RO 


RO 
#177760,R0 
RO,R1 
13$ 
22 

4 
R4,R3 


RC25.ADDR,RO 
2(RO), (SPS 


#21,RET. STATUS 
PC ,DECODE 
#1.RO 

148 

RO 

#6,SP 

PC 


ACSCODE + 6602 
ds 


fe 244 
VAX-11 Bliss=16 V3-555 79 
SPIDERSUSERS : (NEALE .AZTECICZRCHS. B16: 37 (22) 


; *,STEP.VAL 


; *,STEP.VAL 
; *,T0.VALUE 
: TIM.OUT 
* ,SSTMP2 
: $STMP 
: $STMP1 
; $$TMP2 
#,RC$S.REG 


; STEP.VAL,* 
; RC$S.REG,* 


; TIM.OUT 
; TIM.OUT, TO. VALUE 


; *,RCS$S.REG 
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global routine SOOT_RC25 = !Performs RC25 init sequence 
] 


{++ 

' Functional Description : 

! This routine performs the initialization sequence of the RC25 
RC25 controller. 


The initialization procedure serves to: 


1. Identify the parameters of the host-resident communications 
region to the port. 


2. Provide a confidence check of port/controller integrity. 


3. Bring the port/controller online to tie host (note that the 
devices attached to the controlier are not thereby brought 
online to the class driver.) 


Formal Parameters : 
none 


i 

i 

i 

' 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

' 

: Implicit hit: : 
: ISD_STRUCT Stores the init sequence read and write data defined 
: for this program and controller. 
! Implicit Outputs : 
: none 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 


Completion Codes : 
Success: Is returned to the calling routine if this initialization 
sequence was executed successfully. 


Failure: Is returned to the callng routine if this initialization 
sequence was not executed successfully. 


Side Effects : 
-_ oS pees that might have been running in the DM machine will be 
aborted. 


Any outstanding commands or response pertaining to a process using 
the controller will be lost. 


begin 


local 
TEMP : word; !Temporary storage location 


‘+ 

! The host begins the initialization sequence 
! either by issuing a bus init or by writi 

! any value into the IP register; the port mus 
! guarantee that the host will read zeros in SA 
! on the next bus cycle. Initialization then 
! sequences through steps 1-4 as per UQSSP.DOC 
' Version 1.5. 
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! Write to the IP register and start the init 
: sequence going. 


WRT_RC25 (RCIP, ONES); !Begin init sequence 


+ 

This incr loop performs all four steps of the 
initialization sequence described above. The 
SA write and read data is preset into the 
structure ISD.STRUCT and stands for 
"Initialization Sequence Data_STRUCT”’. 


If a - * time out error occures the test 
invoking this routine will take the necessary 
aod areata A return code of failure is 
returned. 


If any SA register compare error is detected after 
a step completion the routine Decode will decode the 
error and load statistical tables up pertanate data. 


ee OO Emme 


et SEQ_NO from STEP1 to STEP4 do 'Do the four init seq steps 
begin 


Wait for the controller to load the SA reg up with the step data. 


I tae (.SEQ_NO) !Did the Controller time out 
begin 
: DO SOME STAT TABLE UP DATA TO SHOW THE TIME OUT 
PRINTB (.EMSG_STRUCT [MSG10]); 


return FAILURE; ‘Notify DRS> init of the failure 
end; 


The controller did not time out so read the SA register 
for the expected step data and compare it to the gocd 
data stored in ISD_STRUCT. 


If the read SA data is not what we expect then return a 
failure code. 


Note that the reserved fields read in the SA register are 
or’ed with all ones to mask out the field before compared 
, to the expected data stored in the structure ‘‘ISD_STRUCT”. 

TEMP = ((.RC25_ADDR CRCSA, RC_ALLJ) or (.RSVD_STRUCT C.SEQ_NOJ)); 


7 - TEMP nequ .ISD_STRUCT C.SEQ_NO, ISRD, ISR_ALLJ !Compare read to expected 
en 
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SEQ 247 
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lo ae 
$ 4439 ' Load some satistical table up with some data to indicate that the 
3 rere | init sequence had some trouble. 
; 4442 PRINTB (.EMSG_STRUCT CMSG11]); 
3 4443 return FAILURE; ‘Return a failure code 
: 4444 end; 
$ 4445 
$ 4446 : 
; rer 4 If this is step four then print this u-code version number. 
; 4449 
3 ret if .SEQ_NO eqlu STEP4 then PRINTB (FMT4, .RC25_ADDR CRCSA, S4R_VERJ); 
: 4452 ‘ 
3 4453 ' This step read data is what we expected so write the SA register 
; pets : with this steps write data stored in ISD_STRUCT. 
3 4456 WRT_RC25 (RCSA, .ISD_STRUCT C.SEQ_NO, ISWRT, ISW_ALLJ); 
3 4457 end; 
Min PS 
: ast : The controller initialization sequence was done successfully so return a success code. 
: 4462 return SUCCESS; 
: 4463 end; 

-SBTTL BOOT.RC25 MODULE DECLARATIONS 
000000 004167 000000G BOOT.RC25:: 

JSR R1,$SAVE3 3 4323 
000004 024646 CMP -(SP) ,-(SP) 
000006 012700 177777 MOV #-1,R 3 *,RCSM.REG 4384 
000012 010077 0000006 MOV RO,@RC25.ADDR 3; RCSM.REG,* 
000016 005002 CLR R : SEQ.NO 4405 
000020 O10e%6 1$: MOV R2,-(SP) 3; SEQ.NO,* 4411 
000022 004767 177504 JSR PC, IS. TIMER 
000026 005726 TST (SP)+ 
000030 RO 
000032 103007 BCC 2s 
000034 016746 0000246 MOV EMSG. STRUCT+#24,-(SP) 3 4417 
000040 012746 000001 MOV #1,-(SP) 
000044 010600 MOV SP,RO 3; SP,* 
000046 104414 TRAP 14 
000050 000427 BR 3$ 3 4411 
000052 016700 0000006 2$: MOV RC25.ADDR,RO 3 4433 
000056 016066 000002 000002 MOV 2(RO) ,.2(SP) + *,RC$S.REG 
000064 010200 MOV R2,RO ; SEQ.NO,* 
000066 006300 ASL R 
000070 016603 000002 MOV 2(SP) ,R3 3; RCS$S.REG, TEMP 
000074 056003 0000006 BIS RSVD. STRUCT(RO) .R3 + *, TEMP 
000100 010201 MOV R2,R1 : SEQ.NO,* 6435 
000102 006301 ASL 
000104 006301 ASL R1 
000106 020361 0000006 CMP R3,1SD.STRUCT(R1) 3; TEMP,* 
000112 001410 BEQ 4$ 
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0000266 EMSG. STRUCT#+26,-(SP) $ 
000001 o7(S 
SP,RO 3: SP,* 


1 
(SP)+,(SP)+ 
R2 #3 ; SEQ.NO,* 


RC25.ADDR,RO 

2(R RO). ¢$P5 ; *,RCSS.REG 
(SP) ,<(SP) : RCS$S.REG,* 
#177760, (SP) 

wENTS =(SP) 


a= «SP) 
oon 


ecco 
PAA 


g 


. SP,* 


Oooo 
=o 


g 


we 
LEE 


= 


Mee Se TRUCT#2(R1) RI ; *,RCSM.REG 
RC25.ADDR,RO 

R1,2(RO) : RCSM.REG,* 
R : SEQ.NO 
ane ; SEQ. NO,* 


#1,R0 
7$ 


-ooc00° 
288eca 
oNNeS 


6$: RO 
7$: (SP)+,(SP)+ 
PC 


012700 
000401 
005000 
022626 

207 


; Routine Size: 80 words, Routine Base: ACSCODE + 7050 
3; Maximum stack depth per invocation: 11 words 


4464 
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global routine INIT_COM_AREA = !Inits DUP Protocol commumication area 


tee 

' Functional Description : 

: After initialization step 3 the port controller clears out 
the communication area's ring buffers. 


This routine first makes sure that this protocol is accom- 
plished by the port before proceeding. 


If the port did its part of the protocol then the communic- 
ations area is initialized as follows: 


1. Defines from the contigious data storage structure 
*COM_AREA"’ the header area address, receive ring 
address and the send ring address (these structures 
are initially declared as reference structures and 
require an address to be defined as its value per 
BLISS language conventions). 


Clears the interrupt. indicators and adaptor purge 
(ring base <1, -2, -3, -4) defined as ‘HEAD_AREA’’. 


the receive and send descriptors with the values: 


Envelope low, high and Q_bus address 
preer ese field 


ag bit 
Ownership bit 


4. Load the receive envelope message length field with the 
buffer size in bytes. 


5. Initialize the Out$standing command buffer to reflect 
that all slots are unused. 


Formal Parameters : 
none 


Implicit Inputs : 
HEAD_AREA, RECEIVE_RING, SEND_RING, COM_AREA 


Implicit Outputs : 
The communication area as a result of this routine will be initialized 
for host program to remote program communications per DUP and 

UQSSP specifications. 


Completion Codes : 
TRUE: Error code to indicate the pert controller has 
not fullfilled its part of the DUP protocol. 


FALSE: An error code to indicate the port controller 
has fullfilled its part of the DUP protocol. 


Side Effects : 
none 


ROM HS HSH HHH 
—SOOBNOurwl 
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CZRCH CZRCH_RC25 DISK FORMATTER 11-Jul-198 16:06:68 VAX=-11 Bliss=16 V3=-55 
REV A PATCH 00 MODULE DECLARATIONS 7=Jul-198 4:5 


tae 


“make sure that the controller has done its part of 
‘ the DUP protocol by clearing out the ring buffers. 
i If the rings are not cleared out then return with 
' an error code of true. 


incru i from 2 to RING_SIZE = 1 do ‘Test all blocks for zeros 
incru j from WRDO to WRD1 do 'Test all words for zeros 


Test this word for zeros. If not zeros then exit, 
' this routine with an ‘communication area init‘ 
error code to indicate the Protocol violation. 


if .COM_AREA C.i, .j, WORD_REF] mequ ZERO then return CIE_CODE; 


'¢ 

' The port did its part of the protocol so now 
‘ define the address cot rons of the HEAD_AREA, 
! RECEIVE_RING and SEND R aee heme the contigious 
i storage declared by COM_AR 


HEAD_AREA = 'Define the Header area 
RECETVE RING. = Orn AREA CREC past: ‘Define the receive ring area 
SEND_RING = COM_AREA [SND_BASEJ ‘Define the send ring area 


i i Not quite sure if the port has to clear out 
‘ the header area of the communications area 
so Itt clear it out here just in case. 


incru i from WRDO to WRD3 do 
HEAD_AREA [.i, WORD_REF] = ZEROS; 


i i Load up the Send Rin , descriptors with an envelope address, 
Gof tng the nA bit’’ to = 1 (interrupt requested), define 

the ‘Ownership bit’’ to = 0 (owned oy, host) and load the 
i ; Reserved field with zeros (per DUP spec). 


neg ro 0 to SND_ALLOCATE - 1 do 


- LO_ENSAD) = SND_ENVELOPE c. i, CMD_LREFJ; !Low-order envel adress for all sys 
= ZERD; Hi gh-order | portion of an 18-bit U/Q bus adrs 
exten 
iReserved field. 
Fla ag b bit whose meaning varies depending on dsc state 
‘tng cates whether dsc is host or port owned 


SPIDERSUSERS: LMEALE AZTECICZRCHS. 


Pa 270 
B16; ii 245° 
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9SE0 251 
CZRCHS CZRCH_RC25S DISK FORMATTER 11=Jul=1983 16:06:44 - VAKe11_Bliss-16 v3-555 
REV A PATCH 00 MODULE DECLARATIONS Fase eee Nett te MOT SUSERS ERENCE AZTECICZRCHS.B16¢3°(24) 


‘¢ 

' Load the Receive Rin descriptors with an envelope 
address, define the ‘Owners ? rship bit’’ = 1 (owned by port. 
i define the ‘Flag. bit’’ to = 1 (Interrupts requested and 
i the reserved field set to zeros (per DUP spec). 


incru i fren 0 to REC_ALLOCATE = 1 do 


-i, LOLENSAD] = REC_ENVELOPE C.i, CMD_LREFI; 
NSAD] = ZEROS; 


} = ZERO 
* FLAG BIT) = cer *FLG; 
¢ * OWN_GITJ = PORTIOWNED; 
end; 


4 
: : Reset the communications area pointer to their initial state. 


WRD SLOT = =-1; 'Start ring pointer at zero 
NSD_SLOT = -1; ‘Start ring pointer at zero 
NXT_CRN = ZERO; 'Start unique cmd ref num at one 


'¢ 
! Set the response envelope message length size equal 
' to the buffer size in bytes starting at text + 


incru i from 0 to age ALLOCATE = 
REC_ENVELOPE C.i, MSG_ Carer = Re. SIZE*2; ‘Convert to bytes before loading 


te 
! Init the outstanding command buffer as follows: 
‘ 1. Indicate that all slots are unused by loading 
the unique value %0°100000'. 
2. Clear the envelope adrs words to zero. 


le 
incru i from 0 to REC_ALLOCATE = 1 do 


be 
OurSssTD BUF C. i. CMD_WRDj = %0°100000"; !Define the slot as unused 
OUTSSTDL BUF C.i, ENV_ADR] = ZERO; ‘Clear out the envelope adrs field 


' 
. No errors detected by this routine so return with an non-error code of false. 


return PAS_CODE; 
end; 


-SBTTL INIT.COM.AREA MODULE DECLARATIONS 
000000 004167 0000006 INIT.COM.AREA: : 
JSR R1,$SAVE3 


000004 012701 C00004 #4,R1 
000010 005002 : R2 





H 4 


SEQ 252 
CZRCHS CZRCH_RC25 DISK FORMATTER 11-Jul-1983 16:06:44 VAX-11 Bliss-16 V3-555 Page 87 
REV A PATCH 00 MODULE DECLARATIONS 7=Jul=1983 08:24:58 SP IDERSUSERS: LNEALE .AZTECICZRCHS.816; 3 (24) 


010100 2s: MOV R1,RO : I,* 4540 
060200 RB oR RO ; 


COM. AREA(RO? 
#1,R0 
PC 


Raat 


2, R1 
R1,422 
1$° 


#COM.AREA,HEAD.AREA 
PCOMLAREASIO. RECEIVE. RING 
ie ~AREA+30, SEND .RING 


R 
RO,R1 
HEAD. AREA, R1 


eh RO 
RO, 
at 
R3 
R3,R1 
R1 


ssesgesescssssssss 

3 uw wiroror ou 

Bxescdssocalne 
NO ~N 


R1,R2 
SEND.RING,R2 
R3,-(SP) 
#54,-(SP) 

PC .BLSMUL 

#SND. ENVELOPE +4 ,RO 
RO, (R2) 


ssescagesscs 
Saaateeee 


SERVSFSEASENVSSRVSNSREVSN 
- 
s 


0000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 


8s 


SEND.RING,RO 
#2,R0 


a a es ts et as = a as as os 


~“ 

* 

So 

=] ss 
MN 
ye 
on— 
NWO 


#46000, (RO) 
pate 
R3,43 

3$ 

RO RI 

R1 

R1 

R1,R3 
RECEIVE.RING,R3 
R2,RO 


ae 
Sa 


sosese 
eesexe 


#77,R0 
#REC ENVELOPE *4 ,RO 
RO, (R3) 
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CZRCH_RC25 DISK FORMATTER 11-Jul-19 


VAX-11 Bliss-16 V3-555 


Bon 253 


CZRCHS 16:06:44 88 
REV A PATCH 00 MODULE DECLARATIONS rhe a 08;90338 SPIDERSUSERS: CNEALE. ARTECICIRCHS.B16-3 24) 


0 RECEIVE. -RING,RO 
905008 #140000, (RO) 

000003 MP R23 

177777 0000006 MOV #-1,NRD.SLOT 

177777 0000006 MO #-1.NSD.SLOT 
0000006 NXT. CRN 

000074 0000006 : MOV a REC. ENVELOPE (RO) 
000100 #100,R0 


RO, #300 
7$ 


#~100000, OUT$STD.BUF (RO) 
QuTSsTD. ~ BUF #2(RO) 


—s22:2= = 2 Oe 


; Routine Size: 127 words Routine Base: ACSCODE + 7310 
: Maximum stack depth per invocation: 7 words 


end 
eludom 


OTS external references 
-GLOBL SSAVE4, SSAVE3, SSAVE2, BLSMUL 


PSECT SUMMARY 


Psect Name words Attributes 
ACSCODE 2019 RO, I ., LCL. REL. CON 


LIBRARY STATISTICS 


ee ee owe me ae ee l Ss (Be ee ee ve a me a oe B loc ks 


File Total Loaded Percent Read 


SPIDERSUSERS : (NEALE .AZTECICZRCHO.L16;5 
398 278 69 55 


4593 





CZRCHS CZRCH_RC25 DISK FORMATTER 
REV A PATCH 00 MODULE DECLARATIONS 


COMMAND QUALIFIERS 
BLISS /PDPTI/LIST CZRCHS.B16 
: 208 Bee" 0 data words 
; ee Time: 01: 


sed: 267 pa y 
: Senntlakion Complete” 


J 4 


11-Jul-19 
7=Jul-19 


83 08:24:58 


VAX-11 Bliss-16 V3-555 
LOT DERSUSERS: : (NEALE .AZTECICZRCHS .B16; 


pees 254 
Page 89 
(24) 
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CZRCH7 CZRCH RC25 DISK FORMATTER 11-Jul-" 983 
77-Jul-1983 


MODULE CZRCH7 (%TITLE "CZRCH RC25 DISK FORMATTER' 
IDENT = "REV A 00° 
ADDRESSING MODE (RELATIVE), 
ENVIRONMENT (NOEIS)) = 


SEQ 255 
6:08:39 VAX=-11 Bliss-16 V3-555 


1 Page 1 
08:26:05 SPIDERSUSERS: (NEALE .AZTECICZRCH7.B16;2 (1) 


BEGIN 

SBTTL "LAST ADDRESS AND SETUP SECTION’ 
Pretty Declarations 

:<bl f/Lowercase_key> 


LIBRARY *CZRCHO'; ‘Define RC25 Formatter library 
REQUIRE ‘*BLSMAC.REQ’; 'Define Bliss macro require file 


'¢ 

! The LASTAD macro must be the final statement (except .end) in a pro- 
! gram. The call generates an even address reflecting the first word of 
memory unused by the program. 


S83 


oy 


LASTAD 


'¢ 


Hardcoded P-TABLES 


These optional hardware P-TABLES are located (when present) between 
the ‘‘LASTAD’’ macro and the ‘*.END** statement. These hardware P-TABLES 
are above and beyond the default hardware P-TABLE located in the main 
body of the program. These P-TABLES wind up appended to the BIN file 

of the diagnostic, just as though the supervisor or the ‘“‘SETUP’’ utility 
had built them there. Thus the diagnostic can be ‘pre-parameterized 

by the programmer. 


If this hardcoded P_TABLE section is not wanted then define ‘‘number’’ in 
the BGNSETUP macro to zero and omitt BGNTAB and ENDTAB macros. 


Coding sample is as follows: 
LASTAD 
BGNSETUP (Number) 'Number of P-TABLES 


WIENER oe eos 
WONAVUESWN $6 OO NAUEWN oO 


DIS AE 


PAPA 
S Ss 
Tr tr tr ce oe ee oP ee ee ee ee ee ee ee ee ee 


Www 
SESEEES 


. 
° 
. 
° 
° 
° 
& 
° 
- 
o 
° 
° 
o 
o 
. 
o 
° 
° 
. 
= 
. 
a 
° 
° 
. 
° 
. 
oe 
. 
° 
° 
e 
. 
° 
. 
° 
° 
e 
7 
eo 
o 
c 
. 
° 
. 
* 
. 
° 
- 
° 
. 
° 
. 
° 
o 
° 
= 
° 
- 
° 
7 
° 
° 
° 
° 
° 
@ 
° 
oe 
. 
2 
. 
° 
° 
aa 
° 
© 
° 
_ 
. 
° 
* 
- 
- 
o 
7 
o 
. 
° 
+ 
° 
~ 
a 
° 
e 
. 
e 
* 
. 
° 
2 
ae 
. 
o 
° 
. 
o 


a a a kk sk dd kd a a td od td et ot od od ot ot ot ot ot ot oS 


w 
rs 
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Snes 256 
CZRCH7 CZRCH RC25 DISK FORMATTER 11-Jul-1983 16:08:39 VAX-11 Bliss-16 V3-555 
REV A PATCH 00 LAST ADDRESS AND SETUP SECTION 7-Jul-1983 08:26:05 SPIDERSUSERS: [NEALE .AZTECICZRCH7. B16;2 1) 


: ENDSETUP 
-END 
BGNSETUP (0); 


No optional P_Tables are defined 
i within this program. 


ENDSETUP 


CZRCH7 CZRCH RC25 DISK FORMATTER 
/REV A / 


$xvZ$, RO 
TSFREE 
" Siharheee itaraaaactnatiacttieat 


BLSLAS::.WOR 
TSFREE::. 


LSLAST== BLSLAS+4 
TSPTHV== 0 


-SBTTL SEND.LINK LAST ADDRESS AND SETUP SECTION 
000000 000207 tate pc e 


; Routine Size: 1 word, Routine Base: S$xYZ$ + 0006 
; Maximum stack depth per invocation: 0 words 


1556 END 
1557 ELUDOM 


PSECT SUMMARY 
Psect Name words Attributes 
$xvZ$ 4 RO - LCL. REL, CON 


LIBRARY STATISTICS 


See ase naw ane l oc k s 


ymbo 
File Total Loaded Percent Read 


PIDERSUSERS : [NEALE .AZTECICZRCHO.L16;5 
‘ 398 2 0 13 





Mm 4 


11-Jul-198 
7-Jul-198 


SEQ 257 
VAX=-11 Bliss-16 V3-555 


s°1 Page 3 
a aR SPIDERSUSERS : LNEALE AZTECICZRCH7.B16;2° (1) 


CZRCH7 46:06: 39 
REV A PATCH 00 LAST ADDRESS AND SETUP SECTION 08:26:05 


COMMAND QUALIFIERS 
BLISS /PDP11/LIST CZRCH7.B16 


1 code + 3 data words 
: 00:06. 


; Elapsed Time: 


00:08.5 
ry Used: 99 pages 
; Compilation Complete 
ZRCHA.EXE Memory allocation an 7 Ly m40.02 


Page 1 
11-JUL-83 


Partition name : DUMMY 
Identification : REV A 
Task UIC : (300,12) 

Task attributes: -HD 

Total address windows: 1. 

Task image size : 15552. words 

Task address Limits: 002000 076577 

R-wW disk blk Limits: 000002 000076 000075 00061. 


*t* Root segment: CZRCH2 


R/wW mem Limits: 002000 076577 074600 31104. 
Disk blk Limits: 000002 000076 000075 00061. 


Memory allocation synopsis: 


Section 
hascod: 
ABSCOD: 
ACSCOD: 
ADSCOD: 


(RW,1,LCL,REL.CON) 
(RO,1,LCL,REL,CON) 
(RO,1,LCL,REL,CON) 
(RO,1,LCL,REL,CON) 
(RO,1,LCL.REL,CON) 


:(RO,1,LCL,REL,CON) 


:(RO,D,GBL REL CON) 
:(RO,D,GBL REL ,CON) 
:(RO,D,GBL ,REL CON) 
(RO,1,LCL,REL,CON) 


eases 
geesceses 
Rowers 


Ss 
wun ~ MVMuvw 
SSSSRERRSSSSSSSS 
SERS 
~ 
™N 
&ror 
a3 
ict tte 


Rees 
Sass 


eccessesss 
s 
res 


& 
Uw 


WWMM 
Wwns 
FESSO 


WWronons 


{2SSk 


SEE ENR 
SoOAns FSSKo. 


OVI 


se 


ooo 

INO 
oooo°o— 
S 
So 


33 


Title 


CZRCH 
CZRCH 


CZRCH4 
CZRCHS 
CZRCH6 


Ident 


REV A 
REV A 


REV A 
REV A 
REV A 


6MUL V3.0 


81 

BI6SAV 
CZRCH6 
CZRCH2 
CZRCH2 
CZRCH7 


v3.0 

REV A 
REV A 
REV A 
REV A 


File 


CZRCH2.0BJ;1 
CZRCHS.08J;1 


CZRCH4.0BJ;1 
CZRCHS.OBJ;1 
CZRCH6.0BJ;1 


NEISLB.OLB;4 
NEISLB.0LB;4 


CZRCH6.0BJ;1 
CZ2RCH2.0BJ;1 
CZRCH2.0BJ;1 
C2RCH7.0BJ;1 
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T 010474-R BOOT.F 075434-R DFPTBL 002140-R ERRTYP Oe 6-R FMT 3754-R ore! 52-R 
ABO.MS 075204-R BOOT.R 014720-R DMSA 16246-R EX.LOC 706-R FMTS 4 an oes $ -R 
ACTIVE 075640-R BR.LE 12-R Y 01 28-8 EX. SUP ig “R cats 4150-R opsa -R 
AZFMTR 016204-R COM. 4-R DUPSI. 4 FCT.BU 061732-R FMT 4246-R -R 
BLSDIV 016004-R CRLF DSPCNT ! 1 sn FCT.RE O16-R GET.CM 6 Sgnk oss 322-R 
BLSLAS 076566-R CTO.WA 010264-R EMSG.S “R FLG.WR 06 38 “R GET.D “R HDSA -R 
BLSMOD 016016 DATETX 063446-R ERRBLK 134"2 = FMTI 635 —=- GET.NR 4 = HEAD.A 061044- 

L 5560-R DATMSG 075012-R ERRMSG 002132-R aad 63556-R GET.NS 006020-R HW.BR. 002144-R 
BLSSHF 016030-R DECODE 006254-R ERRNBR 002130-R FMT 063646-R GOOD.N O7s342-h HW. IP. 002140-R 


SEQ 258 
CZRCHA.EXE Memory al jocat ian a 7 TKB M40.02 Page 2 
CZRCH2 11-JUL-83 :09 


T 063530-R tg 002124-R LSHPTP oostes-k LSPROT . 4 RECEIV 061046-R SW.Q2. 076332-R 
M 014452-R LSHRDL 00225 LSPRT R NO.AD 044-R REC.BU 062732-R rah oT 076422-R 
5650-R t iP 204 4. UNA Qogt en 


O0.MAN 2495-0 
1SEREE O85 2-R 
TSPTHV 00 


LSMREV 002050-R 
LSNAME “R 
LSNDHR 002316-R 
LSNDHW 002150-R 
LSNDSF 002330-R 


1 PWR 7 SND .BU 
LSNDSW 002156-R LSUNIT 1 RC SSAVES 016150-R 
LSDEVP 002060-R LSHPCP 002016-R LSPRIO 002042-R MSGADR 062734-R REDSLA 063506-R SW.01. 076266-R 


*** Task builder statistics: 


Total work file references: 15216. 

Work file reads: 0. 

work file writes: 0. 

Size of core pool: 5486. words (21. pages) 
Size of work file: 2304. words (9. pages) 


Elapsed time:00:00:14 





SEQ 259 

CZRCHA CREATED BY TKB ON 11=JUL=83 AT 16:09 PAGE 1 
GLOBAL CROSS REFERENCE CREF 01 
SYMBOL VALUE REFERENCES... 
ABORT 010474-R CZ2RCH4 9 # CZRCHS 

075204-R # CZRCH2 CZRCHS 

VE 075640-R # CZRCH CZRCH4 

AZFMTR 016204-R CZRCH CZ2RCHS # CZRCH6 

016004-R # nent 
BLSLAS 076566-R # CZRCH 

016016-R # BI6MUL 

015560-R # BI6MUL CZRCHS 
BLSSHF 016030-R # BIGMUL 
BOOT.F 075434-R # CZRCH2 CZRCH4 
BOOT.R 014720-R CZRCH4 ~=# CZRCHS 
BR.LEV 063512-R # CZRCH2 CZRCHS 
COM.AR 0607 # CZRCHe CZRCHS 
CRLF 0644 # CZRC CZRCHS CZRCHS 
CTO.WA 010264-R # CZ 
DATETX 06 # CZRCH2 CZRCH3 CZRCH4 


3446-R 
DATMSG O075012-R # CZRCH CZRCHS CZRCH4 
DECODE 006254-R CZRCH CZRCH4 =# CZRCHS 


002140-R 
DMSA 016244-R CZRCHS = # CZRCH6 
007340-R CZRCH4 9 # CZRCHS 
EMSG.S 0704350-R # CZRCH2 CZRCHS 


ERRBLK 002134-R # CZRCH2 
ERRMSG 0021352-R # CZRCH2 
2130-R # CZRCH 
ERRTYP 002126-R # CZRCH2 
EX.LOC 706-R CZRCH4 ~=# CZRCHS 
° 011270-R CZ # CZRCHS 
FCT.BU 32-R # CZRCH2 CZRCHS 
FCT.RE O76016-R # cence CZRCH4 
ra 063462-R # CZRCH sony CZRCHS 


FMT # CZRCH2 CZRCHS 

FMT4 063754-R # CZRCH2 CZRCHS 

FMTS # CZRCH CZRCH4 

FMT 064150-R # CZRCH CZRCHS 

FMT 246-R # CZRCH CZRCH4 

GET.CM 006166-R # CZRCH 

GET.DU 010772-R CZRCH4 # CZRCHS 
T.NR 006046-R # CZRCHS 

GET .NS # CZRCH 


006020-R 5 
GOOD.N 075342-R # CZRCH CZRCHS 


HS # CZRC 
A 1044-R # CZRCH2 CZRCH 


SEQ 260 
CZRCHA CREATED BY TKB ON 11=JUL=83 AT 16:09 PAGE 2 


CROSS REFERENCE CREF 
VALUE REFERENCES... 
002144-R # CZRCH2 


CZRCH3 


CZRCHS 


ez *EEEEE 


ASPOSSS 


NBs SerMece es 6 


CZRCHS 
# CZRCHS 
# CZRCHS 
CZRCHS CZRCH4 CZ2RCHS 


# CZRCHS 
CZRCHS CZRCHS 


coouuzzz 
° $zz= 

+9 RAM 
omens <4 


28e 


# CZRCH3 
# CZRCH3 
# CZRCH3 


# CZRCHS 


CZRCHS 


# CZRCHS 
# C2RCH3 


# CZRCHS 


256-R CZRCH2 # CZRCHS 
2026-R # CZRCH2 





CZRCHA 
GLOBAL 


CREATED BY TKB 


VALUE 

076572-R 
002100-R 
002074-R 
002050-R 
002000-R 
002316-R 
002150-R 
002330-R 
002156-R 
002042-R 


sssosssee 
= Faz 
$a4 


CROSS REFERENCE 





ON 11=JUL-83 AT 16:09 


REFERENCES... 
Cenc # C2RCH7 
# CZRCH 
# CZRCH2 
# CZRCH2 
# CZRCH 
# CZRCH 
# CZRCH 
# CZRCH 
# CZRC 
# CZRCH 
# CZRCH 
# CZRCH2 
# CZRCH2 
# CZRCH2 
CZRCH2 # CZRCH3 
# CZRCH 
CZRCH2 # CZRCH3 
# CZRCH2 
# CZRCH2 
# CZRCH2 
# CZRCH2 
# CZRCH2 
# CZRCHe 
# CZRCH2 
# CZRCH2 
# CZRCH2 CZRCHS 
# CZRCH CZRCH4 
# CZRCH ZRCH4 
# CZRCH2 CZRCHS 
oa eiers CZRCH4 
# CZRCH CZ2RCH4 
# CZRCH2 CZRCH4 
CZRCH4 =# CZRCHS 
& eens CZRCH 
# CZRCH CZRCH 
# CZRCH2 CZRCHS 
# CZRC CZRCH5S 
# CZRC CZRCH4 
# CZRC CZRCHS 
# CZRCH CZRCH4 
# CZRC CZRCH3 
# CZRC CZRCHS 
# CZRC CZRCHS 
# CZRC CZRCHS 
# CZRC CZRCHS 
# CZRC CZRCH4 
cZRC # CZRCHS 
# CZRCH CZRCHS 
# CZRCH CZRCH4 
# CZRCH CZRCH4 
# CZRCH 
# CZRCH2 CZRCHS 


CZRCHS 


CZRCHS 
CZRCHS 
CZRCHS 


C2RCHS 
CZRCHS 
CZRCH4 


CZRCHS 
CZRCHS 


CZRCHS 
CZRCHS 


C7RCHS 


PAGE 3 
CREF 


v01 


SEQ 261 


SEQ 262 


CZRCHA CREATED BY TKB ON 11-JUL=83 AT 16:09 PAGE 4 
CROSS REFERENCE CREF v01 
VALUE REFERENCES... 
# CZRCH2 
CZRCHS 


CZRCHS 

# CZRCHS 

CZRCHS 

# CZRCHS 

CZRCHS 
CZRCHS 


CZRCHS 
CZRCH7 
CZRCHS 
CZRCH4 CZRCHS 
CZRCH4 CZRCHS 
CZRCHS 
ef CZRCHS 
016150-R BI6MUL # BI6SAV 





